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Abstracts 

This  document  represents  one  of  14  volumes  comprising  the  preliminary 
documentation  for  the  1974  U.S,  Navy  COBOL  Compiler  Validation  System  (CC’VS). 
The  1974  CCUS  will  consist  of  audit  routine..,  their  related  data,  and  an 
’ execution  reoutino  (VP-Routinc)  which  prepares  the  audit  routine  for 
compilation.  Each  audit  routine  is  a COBOL  program  which  includes 
many  tests  and  supporting  procedures  indicating  the  result  of  the  tests. 

The  audit  routines  collectively  contain  all  of  the  features  of  American 
Naf.C-nal  Standard  Programs  Language  COBOL  - X3. 23-1974  (except  for  the 
KNTii".  statement  of  the  Nucleus  module)  as  specified  in  Federal  Information 
Pit  cessing  Standard  (FIPS)  21-1. 
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Subject:  1974  COBOL  Compiler  Validation  System  - Indexed  1-0  Module 

This  document  Is  one  of  a series  produced  by  the  Software  Development 
Division,  ADPE  Selection  Office,  Department  of  the  Navy.  It  contains 
specifications  for  audit  routines  which  are  to  be  part  of  the  COBOL  Compiler 
Validation  System,  and  which  will  be  used  in  testing  COBOL  compilers  for 
conformance  with  one  of  the  modules  of  the  1974  COBOL  Standard  as  established 
by  FIPS  PUB  21-1.  The  reference  document  from  which  these  specifications 
were  produced  is  X3. 23-1974,  American  National  Standard  Programming  Language 
COBOL. 

The  1974  COBOL  Compiler  Validation  System  will  consist  of  audit  routines, 
their  related  data,  and  an  executive  routine  (VP-routine)  which  prepares 
the  audit  routines  for  compilation.  Each  audit  routine  Is  a COBOL  program 
which  includes  many  tests  and  supporting  procedures  indicating  the  result 
of  the  tests.  The  audit  routines  collectively  contain  the  features  of 
Standard  COBOL  (except  for  the  ENTER  statement  of  the  Nucleus  module),  as 
specified  in  FIPS  PUB  21-1. 

The  validation  of  a compiler  will  determine  the  degree  to  which  a com- 
piler conforms  to  its  language  specification.  The  use  of  compilers  that  have 
attained  a high  degree  of  conformance  with  their  respective  language  standards 
enhances  program  Interchangeability  within  all  ADP  installations  which  use 
that  particular  programming  language. 

Thus,  the  purpose  of  producing  a Validation  System  is  to  be  able  to 
test  a COBOL  compiler's  adherence  to  the  standard  language  syntax,  and, 
where  unambiguous,  language  semantics.  The  Validation  System  does  not 
evaluate  the  implementation  of  a compiler  nor  its  quantitative  performance 
characteristics. 

The  purpose  for  releasing  these  specifications  at  this  time  is  to  pro- 
vide adequate  time  for  comments  from  interested  bodies  to  Influence  the 
actual  implementation  of  the  audit  routines.  Review  by  impartial,  tech- 
nically competent  individuals  should  expose  any  incorrect  assumptions  on 
the  part  of  the  specifications  as  well  as  oversights  and  obvious  errors. 

Persons  interested  in  commenting  on  this  set  of  specifications  should 
forward  their  written  comments  to: 

Director,  Software  Development  Division 
ADPE  Selection  Office 
Department  of  the  Navy 
Washington,  D.  C.  20376 
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Introduction 

The  Indexed  1-0  module  provides  a capability  to  access  records  of  a 
mass  storage  file  either  random  or  sequential  manner.  The  3 access  modes 
RANDOM,  SEQUENTIAL  and  DYNAMIC  allow  for  respective  random,  sequential  and 
both  sequential  and  random  record  retrieval.  Logical  file  positioning  for 
accessing  the  file  sequentially  is  established  by  the  OPEN  and  START 
statement. 

Each  record  in  an  indexed  file  is  uniquely  identified  by  the  value  of 
one  or  more  keys  within  that  record.  Duplicate  key  values  are  permitted 
for  alternate  keys  and  have  a defined  order  of  retrieval.  There  is  one 
prime  record  key  for  an  Indexed  file  and  is  used  for  inserting,  updating 
and  deleting  records  in  the  file,  i.e.,  WRITE,  REWRITE  and  DELETE  verbs. 

The  value  for  this  key  must,  therefore,  be  unique. 

This  document  is  provided  to  aid  in  the  evaluation  and  understanding  of 
the  Indexed  1-0  tests.  The  detail  test  specifications  describe  the  language 
syntactical  construct  to  be  tested  along  with  any  semantic  action  that  is 
expected.  The  nature  of  this  module  does  not  permit  all  the  tests  to  be 
checked  internally,  therefore  some  visual  checking  of  the  source  listing  and 
diagnostics  produced  by  the  compiler  is  required. 

The  specifications  for  testing  the  Indexed  1-0  Module  are  divided  into 
three  sections: 

a)  Module  Tests  - This  section  contains  a list  of  all  Indexed 
1-0  test  programs  and  the  number  of  tests  contained  in  each 
program. 

b)  Matrix  of  COBOL  elements  - This  i ection  contains  a matrix  of 
the  COBOL  elements  tested  for  Indexed  1-0  module  and  the  test 
program  in  which  it  was  tested. 

c)  Description  of  Test  Program  - This  section  contains  a detail 
description  of  all  the  programs  used  to  test  the  Indexed  1-0 
module.  Each  program  description  provides  an  introduction 
defining  the  function  or  purpose  of  the  test  program  followed 
by  a description  of  each  individual  feature  tested.  For  each 
feature  tested,  an  objective  is  defined  followed  by  as  many 
supporting  tests  as  necessary  to  adequately  test  that  feature. 

A functional  description  along  with  its  expected  results  is 
provided  for  each  test. 
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The  test  programs  take  one  of  two  formats: 


1)  Completely  Self  Contained  - These  are  programs  (run  units) 
In  which  all  files  required  for  testing  are  created  within 
that  program  and  there  is  no  file  passing  between  test 
programs. 


2)  Test  Set  - This  is  a series  of  test  programs  in  which  files 
are  passed  from  one  program  to  the  next.  The  tests  are 
numbered  in  consecutive  numerical  order  by  test  set. 


The  test  programs  depend  heavily  on  the  Nucleus  Module  and  other  features 
of  the  Indexed  1-0  Module  for  testing  individual  language  features.  To  a 
lessor  degree,  the  Table  Handling  Module  is  also  used.  The  reference 
publication  is  American  National  Standard  COBOL,  X3. 23-1974  (as  adopted  by 
FIPS  PUB  21-1),  Section  VI,  Indexed  1-0  Module. 
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Module 


Level 


INDEXED  1-0  MODULE 


Tests 


Program  Name 

Pass/Fail/Info 

Visual 

Tot. 

1X201 

2 

0 

2 

1X202 

11 

1 

12 

1X203 

10 

2 

12 

1X204 

12 

3 

15 

1X205 

11 

11 

22 

1X206 

11 

6 

17 

1X207 

8 

6 

14 

1X208 

30 

30 

60 

1X209 

4 

2 

6 

1X210 

27 

0 

27 

1X211 

12 

4 

16 

1X212 

9 

2 

11 

1X213 

93 

3 

96 

Totals  for  Level  2 


240 


70 


310 


fn  = file-name 
ci  = condition-name 
in  = implementor-name 
rn  = record-name 
5.d  * identifier 
i = integer 
dn  = data-name 


COBOL  Language  Element 


FILE-CONTROL 

(SELECT) 


MATRIX  OF  LANGUAGE  ELEMENTS  TESTED 


INDEXED  1-0  MODULE 


Programs  in  which  language  elements  are  tested 
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fn  RECORD  INVALID  KEY  • 

fn  INVALID  KEY 

fn  KEY  IS  dn 

fn  RECORD  KEY  IS  dn  OF 
dn  IN  dn 

fn  INTO  id  KEY  IS  dn 

fn  KEY  IS  dn  OF  dn 

fn  RECORD  KEY  dn 


fn  RECORD  KEY  dn  INVALI 

fn  RECORD  KEY  IS  dn 
INVALID  KEY 

(REWRITE) 


rn  INVALID  KEY 


(START) 
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IX1SET81 

1X181 

GENERAL: 


INDEXED  1-0  Module  - Level  1 


(Name  of  test  set) 

(Name  of  run  unit) 

This  run  unit  is  the  first  of  a series  uhich  processes  an 
Indexed  file.  The  function  of  this  program  is  to  cr'-ate  an 
Indexed  file  sequentially  (ACCESS  MODE  SEQUENTIAL)  and  verify 
that  it  uas  created  as  expected.  Tne  file  is  identified  as 
'IX-FS1'  and  is  passed  to  subsequent  run  units  for  processing. 

X-Card  parameters  uhich  must  oe  supplied  for  this  program  are: 


X-24 

Indexed  file  - for  ASSIGN 

X-55 

System  printer 

X-74 

VALUE  OF  implementor-name 

X-75 

Objec*  of  VALUE  OF  clause 

X-S2 

Source -Computer 

X-83 

Ob ject-Computer . 

TEST 

INX-TEST 


SYNTACTICAL 

CONSTRUCT 


SEMANTIC  ACTION 


& 


i 

i 


081 


002 


OBJECTIVE:  This  test  creates  an  indexed 
file  sequentially  with  the  following 
characteristics: 


SELECT  file-name-1 
ORGANIZATION  IS 
INDEXED 

RECORD  KEY  IS  aata- 
name-1 

ACCESS  MODE  IS 
SEQUENTIAL 
See  VI  - 2. 1.2.2 
FD  file-name-1 

LABEL  RECORDS  STANDARD 
VALUE  OF  implement oi — 
name  IS  literal 
See  VI  -3.3.2 
URITE  record-name 
INVALID  KEY 
See  VI  - 4.3.2 


Filo  size  = 
Record  size  * 
Blocking  = 
Record  key  size  = 
Record  key  sequence  = 


See  VI  - 4.8.40) 


500  records 
240  characters 
1 record 
29  characters 
increasing  numer- 
ical value  by 
increments  of  1 <1 
thru  500)  in  posi- 
tions 11  through  19 
of  the  key.  Key 
Positions  1 through 
10  and  20  thrujgh  29 
contain  alphanumeric 
characters  which  are 
the  seme  for  each 
record  key. 

The  URITE  statement 


READ  file-name-1 
AT  END 

See  VI  - 4.4.2 


OBJECTIVE:  This  test  reads  the  file 
created  in  INX-TEST-001  above  and  verifies 
the  existence  and  accuracy  of  the  500 
records  created.  The  AT  END  phrase  i usei 
in  the  READ  statement  and  it  should  be 
e> ecu ted  the  501st  time  the  READ  statement 
is  executed. 

See  VI  - 4. 4. 40)  The  READ  statement 
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1X102 

GENERAL: 


INDEXED  1-0  Module  - Level  1 

(Name  of  test  set) 

(Name  of  run  unit) 

The  function  of  this  run  unit  is  to  process  an  Indexed  file 
randomly  (ACCESS  MODE  IS  RANDOM).  The  file  used  as  input  is 
that  file  created  by  iX101. 

First  the  file  is  verified  as  to  the  existance  and  accuracy  of 
the  500  records  created  in  the  first  run  unit.  Secondly,  records 
of  the  file  are  selectively  update j;  and  thirdly,  the  accuracy  of 
each  record  in  the  file  is  again  verified. 

X-Card  parameters  which  must  be  supplied  for  the  program  are: 

X-24  Indexed  file  for  ASSIGN  TO  clause  (same  as  1X101) 

X-55  System  printer 

X-74  VALUE  OF  clause 

X-75  Object  of  VALUE  OF  clause  (same  as  1X101) 

X-32  Source-Computer 

X-83  Object-Computer. 
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SELECT  fiU-name-1 
ACCESS  MODE  IS  RANDOM 
; ORGANIZATION  INDEXED 
RECORD  KEY  IS  data- 
r.atrw- 1 

Sea  VI  - 2. 1.2.2 
READ  file-name-1  INVALID 
KCY 

See  VI  - 4.2.2 


003.01 


003.02 


003.03 


003.04 


004 


READ  file-name- 1 
INVALID  KEY 


REWRITE  record-name 
INVALID  KEY 
See  VI  - 4.5.2 


OBJECTIVE:  This  lest  reads  the  file  pro" 
cessed  in  the  previous  run  unit  and 
veriries  tho  accuracy  of  the  508  records 
for  use  by  this  run  unit.  The  numerical  . 
portion  of  the  RECORD  KEY  is  varied  from' 
l to  501  by  increments  of  1.  The  INVALID 
KEY  patn  of  the  READ  is  expected  to  be 
taken  upon  encountering  the  501st  RECORD 
KEY  value. 


1.  This  test  verifies  that  the  RECORD  KEY 
uias  set  to  the  501st  Key  value  when 
the  INVALID  KEY  path  of  the  READ  state- 
ment uas  taken. 


See  VI  - 4.4.4(17)  The  READ  Statement 
VI  - 1.3.5  The  INVALID  KEY  phrase. 


2.  This  test  verifies  that  the  last 

record  read  uas  the  record  containing 
record  number  500. 


3. 


This  lest  checks  a counter  which  uas 
incremented  oy  I eacn  time  before  the 
READ  statement  uas  executed.  The 
counter  is  expected  to  be  no  greater 
than  501.  A value  greater  than  501 
indicates  the  INVALID  KEY  path  of  the 
READ  uas  not  taken. 

See  VI  - 4.4.4(17)  the  READ  statement 


4.  This  test  verifies  that  each  record  of 
the  file  read,  contained  the  appro- 
priate record  number  in  that  record. 


OBJECTIVE!  File-name-1  is  opened  as  I-O 
and  the  file  randomly  read  and  updated  on 
every  fifth  record.  This  is  done  by 
varying  the  numerical  port' on  of  the 
RECORD  KEY  from  5 to  505.  All  execution 
of  the  READ  and  REWRITE  statements  are 
expected  to  execute  succcessf ul 1 y except 
the  last  READ.  When  the  RECORD  KEY 
reaches  505  the  next  READ  statement  should 
tab©  tne  INVALID  ('EY  path. 


Each  record  updated  will  contain  the  value 
’I!'1! 02’  in  the  program-name  field  to,  indi- 
cate that  the  record  uas  updated  in  this 
program.  Also  the  update- number  Meld 
of  the  record  uill  be  increment©:!  bu  1. 


Ill 


YU 


tm 


j-HBI 

fi 
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884.01 


004.0Z 


004.03 


1.  This  test  checks  to  sob  that j- the 
INVALID  KEY  path  of  the  READ"  was  W 
when  the  RECORD  KEY  reached  §05.  '# 
value  greater  thafi  505  causes  the  it 
to  fail.-  The  program  flow  then  past 
to  the  next  test.  •.  H' 


IP 

1 


2.  Each  time  an  INVALID  KEY  path  is  taK»h;j ::4 

on  the  READ  statement  during  the 
reading  of  the  file  a counter  is 
incremented.  The  counter  is  - 

expected  to  be  zero  for  this  test.  ; 

3.  Each  time  an  INVALID  KEY  path  is  taK6h;^ 

on  the  REWRITE  statement  during  the  , 1 ; 

updating  of  this  file,  a counter  is 
incremented.  The  counter  is  expected 

to  be  zero  for  this  test. 

See  VI  - 4- 5. 4(8)  THE  REWRITE  “Statement 


OBJECTIVE:  This  lest  reads  the  file  up- 
dated in  INX-TEST-084  and  verifies  that 
the  appropriate  updates  were  made.  This 
is  done  by  varying  the  numerical  portion 
of  the  RECORD  KEY  from  500  to  00.  The 
INVALID  KEY  of  the  READ  statement  is 
expected  to  be  taKen  only  when  the 
RECORD  KEY  reaches  Zero.  There  should 
be  100  updated  records  and  400  nonup- 
dated  records  in  the  file. 


s.i;r 


005.01 


005.02 


005.03 


005.04 


/3 


t.  Before  each  READ  statement  is 

executed,  a counter  is  decremented 
by  1.  The  counter  is  expected  to  be 
no  less  than  Zero.  A value  of  less 
than  Zero  Indicates  that  the  INVALID 
KEY  path  of  the  READ  was  not  taker. 

2.  Each  time  a record  was  read  that  was 
not  updated  by  this  program  a counter 
was  incremented  by  1.  The  counter 

is  expected  to  equal  400, 

3.  Each  time  a record  was  read  that  was 
updated  by  this  program  a counter  was 
incremented  by  1.  The  counter  !s 
expected  to  be  equal  to  100. 

4.  Each  time  the  INVALID  KEY  path  was 
taken  on  the  READ  statement,  a counter 
was  incremented.  The  counter  is 
expected  to  be  no  greater  than  1. 

The  only  INVALID  KEY  that  is  expected 
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of  test  set) 

h 

1X103 

(Name 

of  run  unit) 

1 ■■ 

GENERAL: 

This  run 

unit  is  the  third  of  a series.  The  function 

unit  is  to  process  the  file  sequentially  (ACCESS  MODE  IS 
SEQUENTIAL).  The  file  used  is  that  resulting  from  1X102. 


First,  the  file  is  verified  for  accuracy  of  its  500  records. 
Secondly,  records  of  the  file  are  selectively  deleted  and  thirdly 
the  accuracy  of  each  record  in  the  file  is  again  verified. 


X-Card  parameters  which  must  be  supplied  for  this  program  are: 

ASSIGN  TO  clauses  (same  as  1X102) 


X-24 

X-55 

X-74 

X-75 

X-82 

X-83 


Indexed  file 
System  printer 
VALUE  0P  clause 

Object  of  VALUE  OF  clause  (same  as  1X132) 
Sour ce-C ompu  ter 


Object  - Compu  ter. 


/A 


i 


irr*h« 


^fefei. 


- vmrw 

W *AsrAi4¥ 


mm 


waS^S^^HBH 

«asK'£‘,  iT'^i»?«-A.^fi 
AVtt  -«^--i. 


'^-K’V'ft  $£*:  ^ ^ i%'-sY  •’w 


J-  > c-*  ^ , --  ^ 


TEST 

INX-TEST 


SYNTACTICAL 

CONSTRUCT 

SELECT  f i 1 e-name- 1 


ORGANIZATION  IS 
INDEXED 

RECORD  KEY  IS  data- 
name-1 


REA.'/  f i 1 e-name- 1 
AT  END 


SEMANTIC  ACTIONS 

OBJECTIVE:  This  test  reads  the  file  pro- 
cessed by  the  previous  run  unit  and 
verifies  the  accuracy  of  each  of  the  508 
records  for  use  by  this  run  unit.  The  file 
is  read  sequentially.  The  RECORD  KEY 
should  at  all  times  contain  the  index  of 
the  record  previously  read.  There  are  500 
records  in  the  file.  The  absence  of  the 
riCCESS  clause  is  treated  as  though  the 
SEQUENTIAL  had  been  specified. 

INFORMATION  TEST:  The  contents  of  the 
RECORD  KEY  following  the  opening  of  tho 
file  is  not  defined  by  the  specifications. 
The  current  record  pointer  is  updated  to 
point  to  the  first  record  in  the  file  prior 
to  execution  of  the  first  read  statement. 


006.01 


006.02 


006.03 


1.  Before  each  READ  statement  is  executed 
a counter  is  incremented  by  1.  The 
counter  is  to  be  no  greater  than  501. 

A value  greater  than  501  indicate?  that 
the  AT  END  path  was  not  taken  following 
tne  last  record  of  the  file. 

2.  Each  time  a record  was  read  that  was  not 
updated  by  the  previous  run  unit,  a 
counter  was  incremented  by  1.  The 
counter  should  equal  400. 

3.  Each  time  a record  was  read  that  was 
updated  by  the  previous  run  unit,  a 
counter  was  incremented  by  1.  The 
counter  is  expected  to  equal  100. 


006.04 


READ  file-name- 1 
AT  END 

DELETE  file-name-1  RECORD 
See  VI  - 4.. ‘.2  # . 

"■■■'I  - 4.2.3IP  /U 


4.  Each  record  read  is  verified  to  wake 
sure  it  contains  the  record  number 
reflecting  the  current  record.  If  the 
record  number  does  not  match,  the 
counter  is  incremented.  All  records 
of  the  file  are  e- pec  ted  to  match. 

OBJECTIVE:  The  file  is  opened  as  I-b  and 
read  with  e,,ery  fourth  record  being 
deleted.  0nre  a record  i r-  deleted  it 
sho-'ld  no  longer  be  available  for  future 
cicc*---es.  There  will  be  125  records 
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Before  the  record  is  deleted.,  the  program- 
name  field  is  updated  to  reflect  the 
program  ’1X103'  in  which  the  record  was 
deleted.  Also  the  update-number  field 
will  contain  a value  of  99.  Test 
INX-rEST-808  checks  to  see  that  there  are 
none  of  these  records  in  the  file. 


007.01 


A counter  is  incremented  before  the 
READ  statement  is  executed.  The  AT 
END  path  of  the  READ  statement  is 
expected  to  be  taken  when  the 
counter  is  equal  501  indicating  all 
the  records  of  the  file  have  been 
read. 


007.02 


This  test  checks  a counter  to  verify 
that  the  DELETE  statement  'was 
executed  tne  appropriate  number  of 
times.  The  counter  should  be  equal 
to  125. 

See  VI  - 4. 2. 4(2)  The  DELETE  statement 


008  READ  file-narne-1 

AT  END 


OBJECTIVE'-  This  test  reads  the  file 
updated  in  I NX- TEST-007  and  verifies 
that  the  records  were  in  fact  deleted 
from  the  file.  The  only  records  which 
should  be  remaining  are 
those  which  were  not  deleted.  There 
should  be  375  records  * . the 
file. 


008.01 


008.02 


1.  This  test  chocks  the  counter  used  to 
count  the  number  of  times  the  READ 
statement  was  executed  until  the  AT 
END  path  was  taken.  The  counter 
should  equal  376. 

2.  This  test  checks  the  counter  used  to 
count  the  number  of  deleted  records 
found  in  the  file.  This  count  should 
be  equal  to  zero. 

See  VI  - 4. 2. 4(4)  The  DELETE  statement 


068.03 


7? 


3.  This  test  checks  a counter  which  counts 
the  number  of  records  in  which  the 
actual  RECORD  KEY  contents  match  the 
expected  RECORD  KEY  contents. 

Each  record  read  should  provide 
a match  and  tnus  the  counter  should 
equal  375. 


008 . 04 


4.  This  test  che  Ks  for  the  number  of 


1974  CCVS  TEST  SPECIFICATION 


1X104 

GENERAL: 


& 


INDEXED  I-O-Level  i 


(Nam®  of  run  unit) 

This  run  unit  tests  the  syntactical  constructs  and  semantic  actions 
associated  with  the  following  elements: 

(1)  FILE  STATUS 

(2)  USE  AFTER  EXCEPTION  using  file-name 

(3)  READ 

(4)  WRITE 

(5)  REWRITE  ' 

(6)  RECORD  KEY 

(7)  ACCESS 


This  program  creates  an  Indexed  file  sequentially  (ACCESS  MODE 
SEQUENTIAL)  and  then  updates  selective  records  of  the  file.  The  FILE 
STATUS  contents  are  captured  and  tested  for  accuracy  for  each  OPEN* 
CLOSE*  READ  and  REWRITE  statement  used.  The  READ*  WRITE  and  REWRITE 
statements  are  used  without  the  appropriate  AT  END  or  INVALID  KEY 
phrases.  The  omission  of  these  phrases  are  permitted  if  an  applicable 
USE  procedure  has  been  specified. 

X-Cards  which  must  be  supplied  for  this  program  are: 


! : 


X-2<* 

X-55 

X-32 

X-83 


Indexed  file  - for  ASSIGN  TO  clause 
System  printer 
Sour ce-Compu ter 
Object-Computer. 


1 


1 
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TEST  SYNTACTICAL 

I NX-TEST  CONSTRUCT 

001  OBJECTIVE:  Test  permissible 

syntactical  constructs  for 
ACCESS,  RECORD  KEY,  FILE 
STATUS,  USE  and  WRITE 
1 anguage  features. 

SELECT  f i 1 e-name- 1 
ACCESS  SEQUENTIAL 
RECORD  data-name-1 
FILE  STATUS  IS  data-name-2 

See  VI  - 2. 1.2.1 

USE  AFTER  STANDARD 

EXCEPTION  PROCEDURE  ON 
f i I e-name- 1 


SEMANTIC  ACTIONS 

OBJECTIVE:  An  Indexed  file  is  created 
sequentially  with  the  following 
characterist ics: 

File  size  * 500  records 

RECORD  KEY  size  * 29  characters 
Positions  1 thru  10  alphanumeric 
characters  (fixed) 

Positions  II  thru  19  numeric 
characters 

Positions  20  thru  29  alphanumeric 
characters  (fixed) 

RECORD  KEY  sequence  * 1 thru  500 
in  the  numerical  portion  of  the  key 
Blocking  = 1 

Record  size  = 240  characters 


001.01 


See  VI  - 4.7.2 

WRITE  record-name 

See  VI  - 4.0.2 
See  VI  - 4.8. 3(3) 


The  file  is  created  without  the 
INVALID  KEY  phrase  for  the  WRITE  state 
ment.  Omission  of  this  phrase  is  per- 
mitted if  an  applicable  USE  procedure 
has  been  specified.  The  contents  of 
data-name-1  (FILE  STATUS)  following 
each  execution  of  the  OPEN,  CLOSE,  and 
WRITE  statement  are  verified  for 
accuracy. 

1.  This  test  checks  for  any  execution 
of  the  USE  procedures.  Any  INVALID 
KEY  condition,  in  which  this  phrase 
was  not  specified  for  the  WRITE, 
should  cause  the  USE  procedure 
to  be  executed.  For  this  test  an 
INVALID  KEY  condition  is  not  expect 
ed  to  occur. 


001.02 


001.03 


See  VI  - -4. 7. 4(1)  The  USE  statement 
VI  - -1.3. 5. 3 The  JHVALD  KEY 
phrase . 

2.  This  test  checks  the  last  record 
written  to  verity  that  it  was  re- 
cord number  500. 

3.  i * i is  test  checks  the  contents  of 
the  FILE  STATUS  idata-name-2) 
following  the  OPEN  OUTPUT 
statement.  The  result  of  the 


001.04 


001.05 


002  OBJECTIVE:  Test  the  per- 

missible syntactical  con- 
structs for  the  READ  and 
REWRITE  statements  with- 
out the  appropriate  AT 
END  or  INVALID  KEY  phrase. 

READ  f i 1 e-name- 1 

See  VI  - 4.4.2 

REWRITE  record-name 

See  VI  - 4.5.2 


002.01 


OPEN  is  expected  to  be  successful 
and  thus  contain  the  contents  '00*. 

Seo  VI  - 4.3. 4(1),  (2),  (12)  The  OPEN 
statement  and  VI  - 1.3.4  1-0  Status 

4.  This  test  checKs  the  FILE  STATUS 
(data-name-2)  following  each 
WRITE  statement.  All  URITEs  are 
expected  to  be  successful,  thus  the 
contents  of  data-name-2  should  os> 
equal  to  '00'. 

See  VI  - 4. 8. 4(5)  The  WRITE  statement. 
See  VI  - 1.3.4  1-0  Status. 

5.  This  lest  checKs  the  FILE  STATUS 
dala-item  (data-name-2)  following 
execution  of  the  CLOSE  statement. 

The  close  of  the  file  is  expected 
to  be  successful,  thus  the  contents 
of  data-name-2  should  be  equal  to 
'00' . 

See  VI  - 1.3.4  The  1-0  Status. 

OBJECTIVE:  Read  and  update  the  file 
created  in  INX- TEST-009.  When  the  READ 
and  REWRITE  statements  are  used  with- 
out the  AT  END  or  INVALID  KEY  phrase 
respect ively.  any  such  condition 
occurring  should  cause  the  appropriate 
USE  procedure  to  be  executed.  The 
contents  of  the  FILE  STATUS  data-item 
should  be  updated  for  each  execution 
of  the  OPEN  1-0,  READ,  REWRITE  and 
CLOSE  statements. 


1.  The  file  is  opened  with  the  1-0 
option  and  contents  of  data-name-2 
are  captured  for  later  reference. 
This  test  c heels  the  number  of  times 
the  USE  procedure  was  executed 
while  the  file  was  being  updated. 

The  USE  procedure  is  expected  to  be 
e <ecu  t ed  on  1 y once  i . e . . when  t he 
end-ot-file  condition  occurs  for  the 
READ  statement.  All  executions  of 
of  the  REWRITE  statement  are  ex- 
pected to  he  successful.  If  any 
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082.02 


REldRITEs  were  unsuccessful  the  USE 
procedure  should  have  been  executed. 

See  VI  - 4.4.4(10)e  The  READ  statement. 

See  VI  - 4. 7.4(1)  The  US2  statenient. 

2.  This  lest  checks  the  number  of  times 
the  READ  statement  was  executed.  It 
should  have  executed  501  times. 

The  last  time  should  have  found  an 
end-of-file  condition  and  thus  cause 
the  USE  procedure  to  be  executed. 

See  VI  - 4.4.4(10)c  The  READ  statement. 


002.03 


002.04 


002.05 


002.06 
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3.  This  test  checks  the  contents  of  the 
FILE  STATUS  data-item  (data-name-2) 
following  the  OPEN  1-0  statement 
The  open  is  expected  to  be 
successful  thus  data-name-2 

should  be  equal  to  '00'. 

See  VI  - 4.3.4- 1),  (2),  (10)  The  OPEN 

statement;  and  VI  - 1.3.4  1-0  Status. 

4.  This  test  reads  all  the  records  in 
the  file  and  checks  the  contents  of 
the  FILE  STATUS  data-item  (data- 
name-2)  following  the  ond-of-file 
condition.  The  data-item 

should  have  been  updated 
to  reflect  the  AT  END  condition., 
thus  data-name-2  should  equal  '10'. 

See  VI  - 1.3.4  l-O  Status;  and 

VI  - 4,4.4(13)a  The  READ  statement. 

5.  This  test  captures  the  contents  of 
data-name-2  during  execution  of  the 
USE  procedures  triggered  by  the 

AT  END  condition  of  the  READ  state- 
ment. The  execution  sequence  should 
be  such  thal  the  FILE  STATUS 
da t a-  i t em  i s upda  t od  be  f or  e.  any 
applicable  USE  procedure  is  exe- 
cuted. The  contents  of  data-name-2 
should  be  equal  to  '10'. 

See  VI  - 1.3.4  I-Q  Status. 

6.  This  test  captures  l he  contents  of 
the  FILE  STATUS  data-item  (data- 
name-2)  during  elocution  of  the  USE 


procedure.  The  AT  END  condi l ion 
should  update  data-ncme-2  to  '10' 
and  should  occur  after  the  500th 
record  is  read. 

See  VI  - 4.4.4t2t  The  READ  statement. 


082.07 


7.  This  test  checks  the  contents  of 
the  FILE  STATUS  data-' item  (data- 
name-2)  following  execution  of  the 
CLOSE  statement.  The  CLOSE  state- 
ment is  expected  to  be  successful 
and  thus  upaate  data-name-2  to 
equal  '08' . 
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1974  CCVS  TEST  SPECIFICATIONS 
INDEXED  I-C  Module  - Level  2 


IX2SET81  Warn©  of  test  set) 

1X201  (Name  of  run  unit) 

GENERAL:  This  run  unit  is  the  first  of  a series  Which  processes  an 

Indeyed  file.  The  function  of  this  progrc  is  to  create  an 
Indexed  file  sequentially  (ACCESS  MODE  SEQUENTIAL)  and  verify 
that  it  was  created  as  expected.  The  file  is  identified  as 
'IX-FS1'  and  is  passed  to  subsequent  run  units  for  processing. 

X-Card  parameters  which  must  be  supplied  for  this  program  are: 

X-24  Indexed  file  - for  ASSIGN  TO  clause 

X-55  System  printer 

X-74  VALUE  OF  implementor-name 

X-75  Object  of  VALUE  OF  clause 

X-82  Source-Computer 

X-83  Object-Computer. 


TEST 
I NX-TEST 

001 


002 


SYNTACTICAL 

CONSTRUCT 

SELECT  fils -name- 1 
ORGANIZATION  IS 
INDEXED 

RECORD  KEY  IS  dala- 
natne- 1 

ACCESS  MODE  IS 
SEQUENTIAL 
See  VI  - 2. 1.2.2 
FD  file-name-1 

LABEL  RECORDS  STANDARD 
VALUE  OF  implementor- 
name  IS  literal 
Sec  VI  -3.3.2 
URITE  record-name 
T*1VAL  IB  KEY 
See  VI  - 4.8.2 


READ  file-name-1 
AT  END 

See  VI  - 4.4.2 


SEMANTIC  ACTION 

OBJECTIVE:  This  test  creates  an  indexed 
file  sequentially  with  the  following 
character ist ics: 


File  size 
Record  size 
BlocKing 
Record  Key  size 
Record  Key  sequence 


500  records 
240  characters 
1 record 
29  characters 
increasing  numer- 
ical value  by 
increments  of  1 (1 
thru  500)  in  posi- 
tions 11  through  19 
of  the  Key.  Key 
Positions  1 through 
!0  and  20  through  29 
coi  lain  alphanumeric 
characters  which  are 
the  same  for  each 
record  Key. 

See  VI  - 4.8.40)  The  URITE  statement 

OBJECTIVE:  This  test  reads  the  file 
created  in  INK- TEST-001  above  and  '^rifies 
the  existence  and  accuracy  of  the  500 
records  created.  The  AT  END  phrase  is  used 
in  (he  READ  statement  and  it  should  be 
e-'eruted  the  501st  time  the  REAP  statement 
is  executed. 

See  VI  - 4.4.40'1  The  PEAB  s'atemenl 
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IX2SET81 

1X202 

GENERAL: 


INDEXED  1-0  fiodule  - Lewi  2 

(Name  of  test  set) 

(Name  of  run  unit) 

The  function  of  this  run  unit  is  to  process  an  Indexed  file 
randomly  using  the  ACCESS  MODE  IS  DYNAMIC  clause.  The  file 
used  as  input  is  that  file  created  bu  1X201. 

First  the  file  is  verified  as  to  the  oxistance  and  accuracy  of 
the  508  records  created  in  the  first  run  unit.  Secondly,  records 
of  the  file  are  selectively  updat  d;  and  thirdly,  the  accuracy  of 
each  record  in  the  file  is  again  verified. 

X-Card  parameters  which  must  be  supplied  for  the  program  are: 


X-24 

Indexed  file  for  ASSIGN  TO 

clause 

(same  as  1X201) 

X-55 

System  printer 

X-74 

VALUE  OF  clause 

X-75 

Object  of  VALUE  OF  clause 

(same  as 

1X201) 

X-82 

Sour ce -Compu ter 

X- S3 

Object-Computer. 
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SELECT  f ile-nonw-1 

ACCESS  MODE  IS  DYNAMIC 


OBJECTIVE:  This  test  randomly  reads  the 
file  processed  in  the  previous  run  unit 


ORGANIZATION  IS  INDEXED  and  verifies  the  accuracy  of  the  508 


RECORD  KEY  IS  data- 
name-1 


READ  file-name-1 
INVALID  KEY 


003.01 


003.02 


003.03 


003.04 


READ  file-name-l 
INVALID  KEY 


REWRITE  record-name 
INVALID  KEY 
See  VI  - 4.5.2 


records  for  use  by  this  run  unit.  The 
numerical  portion  of  the  RECORD  KEY  is 
varied  from  1 to  501  by  increments  of  1. 
The  INVALID  KEY  path  of  the  READ  is  ex- 
pected to  be  taken  upon  encountering  the 
501st  RECORD  KEY  value. 


The  file  is  being  read  under  the  ACCESS 
MODE  IS  DYNAMIC  clause;  however,  was 
created  with  the  ACCESS  MODE  IS 
SEQUENTIAL  specification. 


See  VI  - 2. 1.2. 4(7)  The  SELECT  clause. 


1.  This  test  verifies  that  the  RECORD  KEY 
was  set  to  the  501st  key  value  when 
the  INVALID  KEY  path  of  the  READ  state- 
ment was  taken. 


See  VI  - 4.4.4(17)  The  READ  Statement 
VI  - 1.3.5  The  INVALID  KEY  phrase. 


2.  This  lest  verifies  that  the  last 

record  read  was  the  record  containing 
record  number  500. 


3.  This  test  checks  a counter  which  was 
incremented  by  I each  lime  before  the 
READ  statement  was  executed.  The 
counter  is  expected  to  be  no  greater 
than  501.  A value  greater  than  501 
indicates  the  INVALID  KEY  path  of  the 
READ  was  not  taken. 

See  VI  - 4.4.4(17)  the  READ  statement 


4.  This  test  verifies  that  each  record  of 
the  file  contained  the  appro- 
priate record  number  in  that  record. 


& 


OBJECTIVE:  File-name- 1 is  opened  a3  1-0 
and  the  file  randomly  read  and  updated  on 
every  fifth  recorc..  This  is  done  by 
varying  the  numerical  portion  of  the 
RECORD  KEY  from  5 to  505.  All 
READ  and  REWRITE  staternerv  s are 
expected  to  execute  succcessful ly  except 
the  last  READ.  When  the  RECORD  KEY 
reaches  505  the  next  READ  statement  should 
take  the  INv.Tl. ID  KEY  path. 
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004.01 


004.02 


004.03 


Each  record  updated  will  contain  the  value 
'1X202'  in  the  program-name  field  to  indi- 
cate that  the  record  was  updated  in  this 
program.  Also  the  update-number  field 
of  the  record  will  be  incremented  by  1. 

1.  This  test  checKs  to  see  that  the 
INVALID  KEY  path  of  the  READ  was  taKen 
uhen  the  RECORD  KEY  reached  505.  A 
value  greater  than  505  causes  the  test 
to  fail.  The  program  flow  then  passes 
to  the  next  test. 

2.  Each  time  an  INVALID  KEY  path  is  taken 
uhen  reading  the  file,  a counter  is 
incremented.  The  counter  is 
expected  to  be  zero  for  this  test. 

3.  Each  time  an  INVALID  KEY  path  is  taken 
on  the  REWRITE  statement  while 
updating  the  file,  a counter  is 
incremented.  The  counter  is  expected 
to  be  zero  for  this  test. 

See  VI  - 4.5.4(91  THE  REWRITE  statement 


OBJECTIVE:  This  test  reads  the  file  up- 
dated in  INX- TEST-004  and  verifies  that 
the  appropriate  updates  uere  made.  This 
is  done  by  varying  the  numerical  portion 
of  the  RECORD  KEY  from  500  to  00.  The 
INVALID  KEY  of  the  READ  statement  is 
expected  to  be  taKen  only  when  the 
RECORD  KEY  reaches  zero.  There  should 
be  100  updated  records  and  400  nonup- 
da ted  records  in  the  file. 


005.01 


0O5.0: 


005 . 03 


'o$'  - 


Before  each  READ  statement  is 
executed,  a counter  is  decremented 
by  1.  The  counter  is  expected  to  be 
no  less  than  Eero.  A value  of  less 
than  Zero  indicates  that  the  INVALID 
KEY  path  of  the  READ  was  not  token. 

Each  time  a record  was  read  that  was 
not  updated  by  this  program  a counter 
was  incremented  by  1.  The  counter 
is  e- pec  ted  to  equal  400. 

Each  time  a record  was  read  that  was 
updated  by  this  program  a counter  was 
incremented  by  1.  The  counter  is 
e-p «uted  to  be  equal  to  !00. 


i 


005.04 


4.  Each  time  the  INVALID  KEY  path  was 
taken  on  the  READ  statement . a counter 
uas  incremented.  The  counter  is 
expected  to  be  no  greater  than  1. 

The  only  INVALID  KEY  that  is  expected 
is  when  the  RECORD  KEY  reaches  zero. 


IS? A CCVS  TEST  SPECIFICATIONS 


IX2SET81 

1X203 

GENERAL: 


INDEXED  1-0  Module  - Level  2 

(Name  of  test  set) 

(Name  of  run  unit) 

This  run  unit  is  the  third  of  a series.  The  function  of  this  run 
unit  is  to  process  the  file  sequentially  using  the  ACCESS  MODE  IS 
DYNAMIC  clause.  The  file  used  is  that  resulting  from  1X202. 

First,  the  file  is  verified  for  accuracy  of  its  508  records. 
Secondly,  records  of  the  file  are  selectively  deleted  and  thirdly 
the  accuracy  of  each  record  in  the  file  is  again  verified. 

X-Card  parameters  which  must  be  supplied  for  this  program  are: 

X-24  Indexed  file  - ASSIGN  TO  clauses  (same  as  1X202) 

X-55  System  printer 

X-74  VALUE  CF  clause 

X-75  Object  of  VALUE  OF  clause  (same  as  1X202) 

X-82  Source-Comput er 

X-83  Object -Computer. 
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TEST 

INX-TEST 

006 


SYNTACTICAL 

CONSTRUCT 

SELECT  file-name-1 
ACCESS  tiODE  IS 
DYNAMIC- 

ORGAN  12ATI0H  IS 
INDEXED 

RECORD  KEY  IS  data- 
name-1 


READ  file-name-1 
NEXT  RECORD 
AT  END 


SEMANTIC  ACTIONS 

OBJECTIVE:  This  test  reads  the  file  pro- 
cessed by  the  previous  run  unit  and 
verifies  the  accuracy  of  each  of  the  500 
records  for  use  by  this  run  unit.  The  file 
is  read  sequentially.  The  RECORD  KEY 
should  at  all  times  contain  the  index  of 
the  record  previously  read.  There  are  500 
records  in  the  file. 

INFORMATION  TEST:  The  contents  of  the 
RECORD  KEY  following  the  opening  of  the 
file  is  not  defined  by  the  specifications. 
The  current  record  pointer  is  updated  to 
point  to  the  first  record  in  the  file  prior 
to  execution  of  the  first  read  statement. 


006.01 


Before  each  READ  statement  is  executed 
a counter  is  incremented  by  1.  The 
counter  is  to  be  no  greater  than  581. 

A value  greater  than  501  indicates  that 
the  AT  END  path  was  not  taKen  after  the 
the  last  record  of  the  file  was  read. 


006.02 


00C.03 


006.04 


007 


READ  fil e-name- 1 
NEXT  RECORD 
AT  END 

DELETE  file-name- 1 
INVALID  IEY 

bee  VI  - 4.2.2 
See  VI  - 4. 2. 3(2) 


31- 


2.  Each  time  a record  was  read  that  was  not 
updated  by  the  previous  run  unit,  a 
counter  was  incremented  by  1.  The 
counter  should  equal  400. 

3.  Each  time  a record  was  read  that  was 
updated  by  the  previous  run  unit,  a 
counter  was  incremented  by  1 . The 
counter  is  expected  to  equal  100. 

4.  Each  record  read  is  i,erified  to  made 
sure  it  contains  the  record  number 
reflecting  the  current  record.  If  the 
record  numoer  does  not  match,  the 
counter  is  incremented.  All  records 
of  the  file  are  expected  to  match, 

OBJECTIVE:  The  file  is  opened  as  I-O  and 
read  with  every  fourth  record  being 
deleted.  Once  a record  is  deleted  it 
should  no  longer  be  available  for  future 
accesses.  There  will  be  125  records 
deleted  from  the  file. 

Before  the  record  is  deleted,  the  program- 
name  field  is  updated  to  reflect  the 
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007.01 


007.02 


READ  fil e-name- 1 
NEXT  RECORD 
AT  END 


008.01 


008.02 


008.03 
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program  '1X203'  in  which  the  record  was 
deleted.  Also  the  update-number  field 
will  contain  a value  of  99.  Test 
INX-TEST-008  checKs  to  see  that  there  are 
none  of  these  records  in  the  file. 

1.  A counter  is  incremented  before  the 
READ  statement  is  executed.  The  AT 
END  path  of  the  READ  statement  is 
expected  to  be  taken  when  the 
counter  is  equal  501  indicating  all 
the  records  of  the  file  have  been 


2.  This  test  checks  a counter  to  verif" 
that  the  DElETE  statement  was 
executed  the  appropriate  number  of 
times.  The  counter  should  be  equal 
to  125. 

See  VI  - 4.2.4C3)  The  DELETE  statement 

OBJECTIVE:  This  test  reads  the  file 
updated  in  INX-TEST-00?  and  verifies 
that  the  rc".rds  were  in  fact  deleted 
from  the  file.  The  only  records  which 
should  be  remaining  in  the  file  a'-e 
those  which  were  not  deleted.  There 
should  be  375  records  remaining  in  the 
file. 

1.  This  test  checks  the  counter  used  to 
count  the  number  of  times  the  READ 
statement  was  executed.  The  AT  END 
path  is  expected  to  be  taken  when  the 
counter  is  equal  to  376. 

2.  This  test  ine  counter  used  to 

count  the  number  of  deleted  records 
found  in  the  file.  This  count  should 
bo  equal  to  zero. 

See  VI  - 4.2.4t4)  The  DELETE  statement 

3.  This  test  checks  a counter  which  counts 
the  number  of  records  in  which  the 
actual  RECORD  1 EY  contents  match  the 
expected  RECORD  LEV  contents.  Ti.e 
RECORD  t EY  should  at  all  times  contain 
the  index  of  the  record  previously 
read.  Each  record  read  should  provide 
a match  and  thus  the  counter  should 
equal  375. 


008.04 


test  -.hecks  f v-  * h*  numbm  of 


records  in  which  the  record  retrieved 
was  the  record  expected  to  be  provided 
as  a result  of  the  READ.  Each  record 
read  should  provide  a match  and  thus 
the  counter  should  equal  375. 


1974  CCVS  TEST  SPECIFICATION 


1X204 

GENERAL: 


INDEXED  1-0  Level  2 


(Name  of  run  unit) 

This  run  unit  tests  the  syntactical  constructs  and  semantic  actions 
associated  with  the  following  elements: 

(1)  FILE  STATUS 

(2)  USE  AFTER  ERROR  PROCEDURE  ON  file-name 

(3)  READ 

(4)  WRITE 

(5)  REWRITE 

(6)  RECORD  KEY 
(7>  ACCESS 

This  program  creates  an  Indexed  file  sequentially  lACCESS  NODE 
DYMANIC)  and  then  updates  selective  records  ot  the  file.  The  FILE 
STATUS  contents  are  captured  and  tested  for  accuracy  for  each  OPEN- 
CLOSE.  READ  and  REWRITE  statement  used.  The  READ-  WRITE  and  REWRITE 
statements  are  used  without  the  appropriate  AT  END  or  INVALID  KEY 
phrases.  The  omission  of  these  phrases  are  permitted  if  an  applicable 
USE  procedure  has  been  specified. 

X-Cards  which  must  be  supplied  for  this  program  are: 

X-24  Indexed  file  - fcr  ASSIGN  TO  clause 

X-55  System  printer 

X-74  VALUE  OF  implementor-name 

X-75  Object  of  tne  VALUE  OF  clause 

X-82  Source -Computer 

X-83  Object-Computer. 
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TEST 
I NX- TEST 


SYNTACTICAL 

CONSTRUCT 


SEMANTIC  ACTIONS 


OBJECTIVE:  rest  permissible 
syntactical  constructs  for 
ACCESS,  RECORD  KEY,  FILE 
STATUS,  USE  and  URITE 
language  entries. 

SELECT  file-name- 1 
ACCESS  DYNAMIC 
RECORD  data-name-1 
FILE  STATUS  IS  data-namn-2 

See  VI  - 2.1.2. 1 

USE  AFTER  STANDARD 

EXCEPTION  PROCEDURE  CN 
f il e-name- 1 


OBJECTIVE:  An  Indexed  file  is  created 
sequentially  under  the  DYNAMIC  ACCESS 
MODE  and  contain  the  following  file 
character ist ics: 

File  size  « 508  records 

RECORD  KEY  size  = 29  characters 
Positions  1 thru  10  alphanumeric 
characters  (f  ixed) 

Positions  11  thru  19  numeric 
characters 

Positions  20  thru  29  alphanumeric 
characters  (f ixed) 

RECORD  KEY  sequence  = 1 thru  500 
in  the  numerical  portion  of  the  key 
Blocking  = 1 

Record  size  = 248  characters 


001.01 


See  VI  - 4.7.2 

URITE  record-name 

See  VI  - 4.8.2 
See  VI  - 4. 8. 3 (3) 


The  file  is  created  without  the 
INVALID  KEY  phrase  for  the  URITE  state- 
ment. Omission  of  this  phrase  is  per — 
mitted  if  an  applicable  USE  procedure 
has  been  specified.  Data  contents  of 
data-name-2  (FILE  STATUS)  following 
each  execu* ion  of  the  OPEN,  CLOSE,  and 
MPITE  statement  are  verified  for 
accuracy . 

1.  This  test  checks  for  any  execution 
of  the  USE  procedures.  Any  INVALID 
FEY  condition,  in  which  this  phrase 
was  not  specified  for  the  URITE. 
should  cause  the  USE  procedure 
to  be  executed.  For  this  lest  an 
INVALID  KEY  condition  is  not  expect- 
ed to  occur. 


001.02 


00 1 . 0' 


3& 


See  VI  - -4.7.4(!)  The  USE  statement 
VI  - - ' .3.5.3  The  INVALD  FEY 
phrase . 

2.  This  test  checks  the  last  record 
writ  ton  to  verify  that  it  was  re- 
cor  d number  500 . 

3.  This  test  checks  the  contents  of 
the  FILE  SThTUS  (data-name-2) 
following  the  OPEN!  OUTPUT 
statement.  The  result  of  the 


OPEN  is  expected  to  be  successful 
and  thus  contain  the  contents  '00 


001.04 


001.05 


002  OBJECTIVE:  Test  the  per- 

missible syntactical  con- 
structs for  the  READ  and 
REURITE  statements  with- 
out the  appropriate  AT 
END  or  INVALID  KEY  phrase. 

READ  f lie-name- 1 
NEXT  RECORD 
See  VI  - 4.4.2 

REURITE  record-name 

See  VI  - 4.5.2 


See  VI  - 4. 3. 4(1).  <2).  (12)  The  OPEN 
statement  and  VI  - 1.3.4  1-0  Status 

4.  This  test  checks  the  FILE  STATUS 
(data-name-2)  following  each 
URITE  statement.  All  URITEs  are 
expected  to  be  successful,  thus  the 
contents  of  data-name-2  should  be 
equal  to  '00'. 

See  VI  - 4. 8. 4(5)  The  URITE  statement. 
See  VI  - 1.3.4  1-0  Status. 

5.  This  test  checks  the  FILE  STATUS 
data  item  (data-name-2)  following 
execution  of  the  CLOSE  statement. 
The  close  of  the  file  is  expected 
to  be  successful,  thus  the  contents 
of  data-name-2  should  be  equal  to 
'00'. 

See  VI  - 1.3.4  The  1-0  Status. 

OBJECTIVE:  Read  and  update  the  file 
created  in  IX- TEST-009.  IJhen  the  READ 
and  REWRITE  statements  are  used  with- 
out the  AT  END  or  INVALID  KEY  phrase 
respectively,  any  such  condition 
occurring  should  cause  the  appropriate 
USE  procedure  to  be  executed.  The 
contents  of  the  FILE  STATUS  data-item 
should  be  updated  for  each  execution 
of  the  READ.  REURITE.  OPEN  1-0  and 
CLOSE  statement. 


002.01 


1.  The  file  i?  opened  as  1-0  and  the 
contents  of  datu-name-2  captured 
tor  later  reference.  This 
test  checks  the  number  of  times 
the  USE  procedure  was  executed 
while  the  file  was  being  updated. 

The  USE  procedure  is  expected  to  he 
executed  only  once  i.e..  when  the 
eud-of-file  condition  occurs  for  the 
READ  statement.  All  executions  of 
of  the  REWRITE  statement  arc  ex- 
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002.02 


002.03 


002.04 


002.05 


002.06 


peeled  to  be  successful.  If  any 
REURITEs  were  unsuccessful  the  USE 
procedure  should  have  been  executed. 


See  VI  - 4.4.4(10)c  The  READ  statement . 
See  VI  - 4. 7.4(1)  The  USE  statement. 


This  test  checks  the  number  of  times 
the  READ  statement  was  executed.  It 
should  have  executed  501  times. 

The  last  time  should  have  found  an 
end-of-file  condition  and  thus  cause 
the  USE  procedure  to  be  executed. 


See  VI  - 4.4.4(J0)e  The  READ  statement. 


3.  This  test  checks  the  contents  of  the 
FILE  STATUS  data-ilem  (dala-name-2) 
fo! lowing  the  OPEU  I~Q  statement 
The  open  is  expected  to  be 
successful  and  tnus  data-r.ame-2 
should  be  equal  to  '03'. 


See  VI  - 4.3.4CU,  (2).  M0)  The  OPEN 
statement;  and  VI  - 1.3.4  1-0  Status. 


This  test  reads  all  the  records  in 
the  file  and  checks  the  contents  of 
the  FILE  STATUS  data- item  'dala- 
name-2*  following  the  ena-of-file 
cond i i ion . The  data-  i tern 

should  have  been  updated 
to  reflect  * he  AT  END  condition, 
thus  data-name-J  should  equal  '10*. 


See  VI  - 1.3.4  1-0  Status;  and 
VI  - 4.4.4i 1 O i a The  PEAD  statement. 


5.  This  test  captures  the  contents  of 
data-nume-2  during  execution  of  the 
USE  procedures  triggered  by  the 
AT  END  condition  of  the  PEAD  state- 
ment. The  execution  sequence  should 
be  such  that  * ho  FILE  STATUS 
dnla-ifem  is  updated  before  arm 
applicable  USE  p-ocedure  is  c-s- 
ruled.  I he  contents  of  dala-name-2 
.huuld  be  equal  to  ’10'. 


See  VI  - 1.3.4  1-0  Status. 


6.  This  lest  capture,,  the  contents  of 
the  ril.i  5Th TU ■»  1 itj-item  'data- 
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name-2)  during  execution  of  the  USE 
procedure.  The  AT  END  condition 
should  update  data-i  ame-2  to  '10' 
and  should  occur  after  the  500th 
record  is  read. 

See  VI  - 4.4.40)  The  READ  statement. 

882. C7  7.  This  test  checks  the  contents  of 

the  FILE  STATUS  data-item  (data- 
name-2)  following  execution  of  the 
CLOSE  statement.  The  CLOSE  state- 
ment is  expected  to  be  successful 
and  thus  update  data-naioe-2  to 
equal  '30'. 
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1974  CCVS  TEST  SPECIFICATIONS 
INDEXED  1-0  - Level  2 


1X205 


(Name  of  run  unit) 


n^i 


GENERAL:  The  function  of  this  run  unit  is  to  test  the  permissible 

syntactical  constructs  of  COBOL  elements  associated  with  Level  2 
Level  2 of  INDEXED  1-0.  The  elements  tested  in  this  rou- 
tine are: 

(1)  "CCESS  MODE  DYNAMIC; 

(2)  ALTERNATE  RECORD  KEY  without  the  duplicates  option; 

(3)  RESERVE  clause; 

(4)  SAME  clause; 

(5)  BLOCK  CONTAINS  integer-1  TO  integer-2  clause; 

(6)  VALUE  OF  impl emen tor-name . 

Each  element  tested  will  be  exercised  semantically  by  this 
routine.  Files  are  created  and  accessed  using  the  ACCESS  MODE 
IS  DYNAMIC. 

X-Cards  which  must  be  supplied  for  this  program  are: 

X-24  Indevcd  file-1  for  ASSIGN  TO  clause 

X-25  Indexed  file-2  for  ASSIGN  TO  clause 

X-55  System  printer 

X-74  VALUE  OF  impl ementor-name 

X-75  Object  of  UALUE  OF  clause 

7.-76  Object  of  VALUE  OF  clause  for  file-2 

X~82  Source-Coriputer 

X-83  Object-Computer. 
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TEST 
I NX-TEST 


SYNTACTICAL 

CONSTRUCT 


SEMANTIC  ACTION 


OBJECTIVE:  Test  the  full 
syntactical  constructs 
associated  with  the 
RESERVE,  ACCESS  and 
ALTERNATE  RECORD  clause. 


OBJECTIVE:  Create  a file  using  the 
ACCESS  MODE  IS  DYNAMIC  and  verify 
that  the  records  can  be  retrieved 
Randomly  as  well  as  Sequentially. 


001.01  SELECT  f ile-name-1 

RESERVE  integer- 1 area 
ACCESS  MODE  IS  DYNAMIC 
RECORD  KEY  IS  data-name-1 
ALTERNATE  RECORD  KEY  IS 
data-narne-2 

See  VI  - 2. 1.2.2 


1.  This  test  creates  a file  of  200 
records.  The  RECORD  KEY  is  10 
positions  in  length  and  estab- 
lished in  numerical  sequence 
by  increments  of  1.  The 
ALTERNATE  RECORD  KEY  is  10  posi- 
tions in  length  and  established  in 
inverse  numerical  sequence  by 
increments  of  1 . 


See  VI 
men  t . 


4.8.4(13)  The  URITE  State- 


001.02  READ  f ile-name-1  NEXT 
RECORD  AT  END 


This  test  opens  the  file  as  INPUT 
and  verifies  that  the  records  can 
be  accessed  sequentially.  The  test 
reads  25  records. 


See  VI  - 2. 1.2. 4(7). 


001.03  READ  f ile-name-1 
INVALID  KEY 


3.  This  test  verifies  that  the  records 
can  be  accessed  randomly.  The  test 
reads  10  records. 


See  VI  - 2. 1.2. 4(7). 


001.04 


4.  Read  25  records  sequentially  using 
the  alternate  Key  and  verify  that 
the  records  mere  retrieved  in  the 
correct  sequence.  The  START  state- 
ment is  used  to  establ ish  the  Key  of 
ref er ence . 


OBJECTIVE:  Test  use  of  the 
various  syntactical  con- 
structs associated  with 
the  PEStPVc • ACCESS. 
ALTERNATE  RECORD,  BLOCK 
CONTAINS  and  VALUE  OF 


OBJECTIVE:  Create  a file  in  the  DYNAMIC 
Access  Mode  and  verify  that  the  records 
can  be  retrieved  Randomly  is  well  as 
Sequentially.  The  filo  created  is 
Jii  expected  to  contain  the  appropriate 
1 II j label  recoi d identification  and  blocK- 
'JV  iny  characteristics  as  defined  by  the 
VALUE  OF  and  BLOCK  clause  respect iv «ly. 


SELECT  file-name-2 

RESERVE  integer- 1 AREAS 
ACCESS  MODE  DYNAMIC 
RECORD  KEY  data-name-3 
ALTERNATE  RECORD  data- 
nam©-4 

See  VI  - 2. 1.2.2 

VALUE  OF  implementcr-name 
data-nare-5 

BLOCK  CONTAINS  integer- 1 
TO  integer-2  RECORDS 

See  VI  - 2. 1.3.2 

READ  f i 1 e-rame-2  NEXT 
RECORD  AT  END 


READ  f i 1 e-name-2 
INVALID  KEY 


OBJECTIVE:  Test  use  of 
the  'arious  syntactical 
constructs  assoc iated 
with  the  ShME  clause. 

SAME  RECORD  file-name 
f 1 1 e-name-2 

See  VI  - 2 . 1 . 3 . 2 


1.  This  test  creates  a file  of  208 
records.  The  RECORD  KEY  is  10  posi 
tions  in  length  and  established  in 
numerical  sequence  by  incre- 
ments of  1.  The  ALTERNATE  RECORD 
KEY  is  10  positions  in  length  and 
establ ishea  in  inverse  numerical 
sequence  by  increments  of  1.  The 
file  blocking  is  defined  as  5 to  25 
records  per  block. 

See  VI  - 4.8.4(131  The  WRITE  state- 
ment. 


2.  This  test  opens  the  file  as  INPUT 
and  verifies  that  the  records  can 
be  accessed  sequentially.  The 
test  reads  25  records. 

See  VI  - 2.1.1.4(f). 

3.  This  test  verifies  that  the  record 
can  be  accessed  randomly.  The  test 
reads  10  records. 

See  VI  - 2. 1 .2.4(7) . 

4.  Read  25  records  sequentially  using 
the  alternate  Key  and  verify  that 
the  records  were  retrieved  in  the 
correct  sequence.  The  5TART  state- 
ment is  used  to  estahl  ish  the  key 
of  reference. 

OB JECT 1 VE : Ver i f y that  files  spec i - 

f ied  in  the  SAME  PECOPD  clause  share 

the  same  record  area. 


1.  File-name- 1 and  file-name-2  are 
opened  as  INPUT.  A record  is  read 
sequent ial 1 y f i om  f i 1 o-name- 1 and 
its  contents  verified. 

2.  A record  is  read  sequentially  from 
file-name-2  and  a test  is  made  to 
verify  that  > AT  END  path  was  not 
tal*en  on  oif  ler  the  read  of  file- 
name- 1 or  f i 1 e- name-2 . 


3.  The  shared  record  areas  of  file- 
name-1 and  file-name-2  are  tested. 
The  data  contents  of  the  most  re- 
cently read  file  (file-name-2) 
is  expected.  Contents  are  verified 
by  using  record  references  associ- 
ated with  file-name-1. 

See  VI  - 2. 1.3. 4(4). 


INDEXED  1-0 


LEVEL  2 


1X206  (Name  of  run  unit) 

GENERAL:  The  function  of  this  routine  is  to  test  the  permissible  syntactical 

constructs  of  COBOL  elements  associated  with  Level  2 of  INDEXED  1-0 
The  elements  tested  in  this  routine  are. 

(1)  ACCESS  MODE  DYNAMIC 

(2)  ALTERNATE  RECORD  KEY  without  the  duplicates  option 

(3)  RESERVE  clause 

(4)  SAME  clause 

(5)  BLOCK  CONTAINS  in»egei — 1 TO  integei — 2 clause 

(6)  VALUE  OF  implementor-name  series. 

Each  element  tested  will  be  exercised  semantically  by  this  routine. 
Files  are  created  and  accessed  in  the  DYNAMIC  Access  Mode. 

X-Cards  which  must  be  suppl ied  for  this  program  are: 


X-24 

Indexed  file-1  for 

ASSIGN 

TO 

clause 

X-25 

Indexed  file-2  for 

ASSIGN 

TO 

clause 

X-55 

System  printer 

X-74 

VALUE  OF  i rap lemen tor-name 

X-75 

Object  of  VALUE  OF 

clause 

X-S2 

Source-Computer 

X-83 

Object -Compu t er . 
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TEST 

INX-TEST 


SYNTACTICAL 

CONSTRUCT 

OBJECTIVE:  Tost  tho 
syntactical  con- 
structs associated 
with  the  RESERVE* 
ACCESS,  ALTERNATE 
RECORD.  BLOCK  and 
VALUE  OF  clauses 


SELECT  f i 1 e-name- 1 
RESERVE  integei — 1 
ACCESS  DYNAMIC 
RECORD  KEY  IS  dula- 
narrw- 1 

ALTERNATE  RECORD  IS 
data-name-2 

See  VI  - 2. 1.2.2 

VALUE  OF  implementor- 
name  dala-name-3 
implementor — name 
data-name-4 
BLOCK  integer- 1 TO 
inleger-2  RECORDS 

See  VI  - 3.3.2 


SEMANTIC  ACTION 

OBJECTIVE:  Create  a file  in  the  DYNAMIC 
mode  and  verify  that  the  records 
can  be  retrieved  randomly*  as  uell  as 
sequentially.  The  file  created  is  expected 
to  contain  the  appropriate  label  record 
idenl if icaton  and  blocking  characteristics 
as  defined  by  the  VALUE  OF  and  BLOCK 
clause  respectively. 

1.  This  test  creates  a file  of  260  records. 
The  RECORD  KEY  is  10  positions  in  length 
and  established  in  numerical  sequence 
order  by  increments  of  1.  The  ALTERNATE 
RECORD  KEY  is  10  posit icns  in  length  and 
established  in  inverse  numerical  sequence 
by  increments  of  1. 

The  file  blocking  is  defined  as  10  to  20 
records  per  block. 

See  VI  - 4. 8. 4(131  The  UR1TE  statement. 


001.02  READ  fi! e-name- 1 NEXT 
RECORD  AT  END 


2.  This  lest  opens  the  file  as  INPUT  and 
verifies  that  the  records  can  be  accessed 
sequentially.  The  lest  reads  25  records. 


See  VI  - 2. 1.2. 4(7). 


001.03  READ  file-name- 1 
INVALID  LEY 


3.  This  lest  verifies  that  the  records  can 
be  accessed  randomly.  The  test  reads  10 
r ecords . 


See  VI 


001.04 


4.  Read  25  .ecords  sequentially  using  the 
al ‘ornate  key  and  verify  lhat  the  records 
mere  relrie'vu  in  the  correct  sequence. 
The  START  statement  is  us^d  to  establish 
th.y  lay  of  reference. 


OBJECTIVE:  Test  use  OBJECTIVE:.  Ct  eat®  a file  in  the  SEQUENTIAL 

ot  the  nhhr  i-vialed  syn-  ACCESS  tlODE  and  "erify  that  the  records  can 


tactical  constructs 
associated  uilti  the 
RESERVE.  ACCESS, 
ALTERNATE  RECORD  and 
t VALUE  OF  clauses 

082.01  SELECT  file-name-2 

; RESERVE  integer-! 
AREAS 

; ACCESS  MODE  IS 
SEQUENTIAL 
RECORD  KEY  data- 
name-3 

ALTERNATE  RECORD 
KEY  data-name-4 

See  VI  - 2. 1.2.2 

VALUE  OF  implementor- 
name  IS  1 1 teral , 
implementor-name  IS 
data-name-5 

See  VI  - 3.3.2 

802.02  READ  file-name-2  NEXT 

RECORD  AT  END 


002.03  READ  file-name-2 
INVALID  KEY 


003  OBJECTIVE:  Test  use 

of  the  permissible 
syntactical  con- 
structs associated 
with  the  SAME  clause 

003.81  SAME  RECORD  FOR  file- 

name-1, file-name-2 

See  VI  - 2. 1.3,2 

803.02 


003.03 


be  retrieved  sequentially  on  both  the  prime 
and  alternate  record  Keys.  The  file  created’, 
is  expected  to  contain  the  appropriate  label 
record  ident if icaton  as  defined  by  the  VALUE > 
OF  clause. 

1.  This  test  creates  a file  of  200  records. 
The  RECORD  KEY  is  18  positions  in  length 
and  established  in  numerical  sequence 
order  by  increments  of  I.  The  ALTERNATE 
RECORD  KEY  is  10  positions  in  length  and 
established  in  inverse  numerical  sequence 
by  increments  of  1. 

See  VI  - 4.8.4(13)  The  WRITE  statement. 


2.  This  test  opens  the  file  as  INPUT  and 
verifies  that  the  records  can  be  accessed 
sequentially.  The  test  reads  25  records. 

3.  Read  25  records  sequentially  using  the 
alternate  Key  and  verify  that  the  records 
were  retrieved  in  the  correct  sequence. 
The  START  statement  Is  used  to  establish 
the  Key  of  reference. 

OBJECTIVE:  Verify  that  files  specified  in 
the  SAME  RECORD  clause  shore  the  same  re- 
cord area.  File-name-1  and  fl e-name-2 
specify  different  access  modes. 


1.  File-name-1  and  file-name-2  are  opened 
as  input.  A record  is  read  sequentially 
from  file-name-l  and  its  contents 

ver i f i ed . 

2.  A record  is  read  sequentially  from  file- 
name-2 and  a test  is  made  to  verify  that 
an  AT  END  path  was  not  taKen  on  either 
the  read  of  file-name-1  or  file-name-2. 

3.  The  record  read  from  file-name-2  is 
verified  as  a record  of  that  file. 


003.04 
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4.  The  shared  record  areas  of  file-name-1 
and  file-name-2  are  tested.  The  data 
contents  of  the  most  recently  read  file 
(file-name-2)  is  expected.  Contents  are 
verified  by  using  record  references 
associated  with  f i 1 e-name- i . 

See  VI  - 2. 1 .2.4(4) , VI  - 2. 1.3. 3(7). 
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1974  CCVS  TEST  SPECIFICATIONS 


INDEXED  1-0 
LEVEL  2 


1X207  (Nam®  of  run  unit) 

GENERAL:  The  function  of  this  routine  is  to  test  the  permissible  syn- 

tactical constructs  of  COBOL  elements  associated  uith  Level  2 
of  INDEXED  1-0.  The  elements  tested  in  this  routine  are: 

(1)  Ordering  of  clauses  in  f il e-control -entry; 

(2)  ALTERNATE  RECORD  KEY  uith  the  duplicates  option; 

(3;  USE  AFTER  STANDARD  EXCEPTION  file-name-1,  file-name- 2; 

(4)  FILE  STATUS. 

Each  element  tested  will  be  exercised  semantically  by  this 
routine.  Files  are  created  and  accessed  in  the  SEQUENTIAL 
ACCESS  MODE. 

X-Cards  which  must  be  supplied  for  this  program  are: 


X-24 

Indexed  file-1  for  ASSIGN 

TO  clause 

X-25 

Indexed  file-2  for  ASSIGN 

TO  clause 

X-55 

System  printer 

X-74 

VALUE  OF  impl emen tor-name 

X-75 

Object  of  VALUE  OF  clause 

X-76 

Object  of  VALUE  OF  clause 

for  file-; 

X-82 

Source-Computer 

X-83 

Object-Computer. 

i 


V/ 


TEST 

INX-TEST 


SYNTACTICAL 

CONSTRUCT 


SEMANTIC  ACTIONS 


001 


OBJECTIVE:  Test  use 
of  the  abbreviated 
syntactical  con- 
structs associated 
with  the  ALTERNATE 
RECORD,  FILE  STATUS 
and  positioning  of 
clauses  in  the 
f ile-control-entry. 
The  SELECT  clause 
must  be  specified 
f irst  in  the  f ile- 
control  entry  and 
the  remaining  clauses 
may  appear  in  any 
order . 

SELECT  f i 1 e-name- 1 
ACCESS  MODE  IS 
SEQUENTIAL 
ALTERNATE  RECORD 
data-name~l 
UITH  DUPLICATES 
FILE  STATUS  data- 
name-2 

RECORD  KEY  IS 
data  -name-3 
ORGANIZATION  IS 
INDEXED 
ASSIGN  TO 

imp'  *rnen tor-name 


See  VI  - 2. 1.2.2: 

VI  - 2.1.2,3a) 


OBJECTIVE:  This  test  creates  and  processes 
an  indexed  file  sequentially  (ACCESS  MODE  IS 
SEQUENTIAL)  utilizing  the  syntactical  con- 
structs specified  in  the  f ile-control-entry. 
The  file  will  contain  the  following  charact- 
erist  ics: 


File  size  = 

Record  size  * 

Record  Key  size  = 
Alternate  Key 
size  = 

Record  Key 

sequence  = 


Alternate  Key 
sequence 


300  records 
240  characters 
23  records 

29  characters 

Positions  1 thru  5:  decreas- 
ing numerical  value  by  incre- 
ments of  1 (300  thru  1). 
Positions  6 thru  29:  any  com- 
bination of  alphanumeric 
characters  which  are  the  same 
for  each  record  Key. 

Positions  1 thru  24:  any  com- 
bination of  alphanumeric 
characters  which  are  the  same 
for  each  alternate  Key. 
Positions  25  thru  29:  in- 
creasing numerical  value  by 
increments  of  1 with  every 
50th  and  51st  record  Key  a 
duplicate  key. 


The  DUPLICATES  option  of  the  ALTERNATE  clause 
should  permit  non-unique  alternate  Key  values 
to  be  processed.  Retrieval  of  these  records 
should  be  in  the  order  in  which  they  were 
wr i t ten . 


001.01  URITE  record-name 
FROM  identifier 
INVALID  KEY 


1.  This  test  creates  the  file  defined  above. 
A count  is  Kept  of  the  number  of  t irnes 
the  URITE  statement  is  executed.  Upon 
encountering  the  300th  record  a test  is 
made  to  verify  that  there  were  no  unsuc- 
cessful IJPlTEs  (INVALID  KEY  path) . The 
DUPLICATES  option  of  the  ALTE-PNAi'E  clause 
should  permit  non-ur. ique  alternate  Key 
values  to  be  pi ocessed . 


See  VI 
VI 


4.8.4(14); 
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001.82 


001.03 


001.04 


001.05 


002 


READ  HI  ©-name- 1 
RECORD  AT  END 


READ  fil e-name- 1 
RECORD  AT  END 


OBJECTIVE:  Test  use 
of  the  abbreviated 
syntactical  con- 
structs associated 
with  the  ALTERNATE, 
and  USE  entries 

SELECT  f i I e-name-2 
ALTERNATE  RECORD 
KEY  dala-name-4 
DUPLICATES 
RECORD  KEY  lJ 
data-name-5 


2.  Open  file-name-l  as  INPUT  and  read  110 
records  of  the  file  sequentially  verifying 
the  contents  of  each  record.  The  OPEN 
should  position  the  current  record  pointer 
to  the  first  record  of  the  file  and  estab- 
lish the  prime  record  key  as  the  current 
Key  of  reference. 

Bee  VI  - 4.3.40).  The  OPEN  statement. 

3.  Twenty  records  of  file-name-1  are  read 
sequentially  using  the  ALTERNATE  KEY  as  the 
Key  of  reference.  Each  record  is  verified. 
The  START  statement  is  used  to  establ  ~h 
data-name-1  as  the  Key  of  reference. 

See  VI  - 4.4.4(2)a.  The  READ  statement. 

4.  This  test  reads  60  records  of  file-name-l 
and  verifies  that  the  duplicate  Key  can  be 
accessed.  Each  record  read  is  verified. 

The  ALTERNATE  KEY  is  used  as  the  Key  of 
reference. 

See  VI  - 4.4.4(14).  The  READ  statement. 

5.  This  test  reads  the  file  until  the  AT  END 
path  has  been  taKen.  The  FILE  STATUS  daia- 
item  (data-name-2)  should  contain  the 
value  ' 10' . 

See  VI  - 2. 1.2.4.  The  FILE  clause. 

OBJECTIVE:  This  test  creates  and  processes  an 
indexed  file  sequentially  utilizing  the  syn- 
tactical constructs  specified  in  the  file- 
control  -entry.  The  USE  procedures  should 
be  executed  for  each  occurrence  In  which  the 
AT  END  phrase  of  the  READ  is  not  specified 
and  an  end-of-file  condition  occurs.  The 
file  character ist ics  are  the  same  as  that 
specified  in  INX- TEST-001  above. 

When  no  ACCESS  clause  is  specified,  the 
ACCESS  MODE  IS  SEQUENTIAL  opton  is  assumed. 


See  VI  - 2. 1.2.2 

USE  AFTER  STANDARD 
EXCEPTION  PROCEDURE 
f i 1 e-narns-  1 . file- 


//- 


name-2 

See  VI  - 4.7.2 

082.81  WRITE  record-name 
FROM  identifier 
IHVm.ID.KEY 


002.02  READ  file-name-1 
READ  file-name -2 
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002.03  READ  file-name-2 
RECORD  AT  END 


1.  This  test  creates  the  file  defined  above. 
Upon  encountering  the  300th  record  a test 
is  made  to  verify  that  there  uere  no 
INVALID  KEY  paths  taken  during  creation 
of  the  file. 

2.  This  test  REftDs  file-name- 1 and  file-name- 
2 until  an  end-of-file  condition  occurs. 
The  appropriate  USE  procedure  should  be 
executed  upon  encountering  the  301st  read 
of  each  file. 

3.  This  test  reads  120  records  verifying  that 
the  records  can  be  retrieved  via  the  alter 
nate  key  containing  duplicate  key  values. 
Each  record  is  verified  as  for  the  appro- 
priate data  contents.  The  START  statement 
is  used  to  establ ish  data-name-4  as  the 
Key  of  reference. 
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1974  CCVS  TEST  SPECIFICATIONS 
INDEXED  i-0  - Level  2 
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1X208 


(Name  of  run  unit) 


GENERAL:  The  function  of  this  routine  is  to  test  the  permissible  syn- 

tactical constructs  of  COBOL  elements  associated  with  level  2 
of  the  INDEXED  I~0  Module.  The  elements  tested  in  this  routine 
are: 

(1)  READ  statement; 

(2)  START  statement; 

(3)  USE  statement. 


Each  element  tested  will  be  exercised  semantically  by  this 
rout ine. 

X-Cards  which  must  be  supplied  for  this  program  are: 

X-24  Indexed  file-1  for  ASSIGN  TO  clause 

X-25  Indexed  file-2  for  ASSIGN  TO  clause 

X-55  System  printer 

X-74  VALUE  OF  impl emen tor -name 

X-?5  Object  of  VALUE  OF  clause  for  file-1 

X-7S  Ob  ect  of  VALUE  OF  clause  for  file-2 

X-32  Source-Computer 

X-83  Object-Computer. 


J! 


TEST 
I NX-TEST 

881 


001.01 


001.02 


■toi 


SYNTACTICAL 
CONSTRUCT 

OBJECTIVE:  Test  use 
of  the  abbreviated 
syntactical  con- 
structs associated 
with  the  USE  state- 
rent 

SELECT  file-name-1 
ALTERNATE  RECORD 
KEY  IS  data-name-l 
RECORD  KEY  IS 
data-name-2 
ASSICN  TO  imple- 
mentor-name 
; ACCESS  MODE  IS 
DYNAMIC 

SELECT  file-name-2 
ALTERNATE  RECORD 
KEY  IS  data-name-3 
RECORD  KEY  IS 
data-name-4 
ACCESS  MODE  IS 
SEQUENTIAL 
ASSIGN  TO  imple- 
mentor-name 

USE  AFTER  ERROR  PROCEDURE 


SEMANTIC  ACTIONS 

OBJECTIVE:  The  objective  is  to  create 
two  files  for  testing  the  READ  and  START 
statements.  The  characteristics  defined 
in  the  SELECT  clause  are  used  for  file- 
name- 1 and  file-name-2  respectively. 

Each  file  will  contain  the  following  file 
character  1st ics: 


File  size 
Record  size 
Blocking 
RECORD  KEY  size 
ALTERNATE  KEY  size 
RECORD  KEY  sequence 


ALTERNATE  KEY  sequence 


300  records 
240  characters 
1 record 
18  characters 
18  characters 
increasing  num- 
erical value  by 
increments  of  1 
(1  thru  300). 
decreasing  num- 
erical values 
(380  thru  1). 


f i 1 e-name- 1 
name-2 


ile- 


See  VI  - 4.7.2 

WRITc  record-name 
INVALID  KEY 

1JRITE  record-name  1.  This  tost  creates  file-name-1 

INVALID  KEY  using  the  file  character ist  ics  defined 

above.  When  the  file  has  been  created, 
a lest  is  made  to  verify  that  the  WRITE 
statement  uas  executed  300  times  and 
that  there  were  no  INVALID  KEY  paths 
taken . 

2.  This  test  creates  file-name-2  using  the 
file  character  ist ics  defined  above.  When 
the  file  has  been  created,  a test  is  made 
to  verify  that  the  WRITE  statement  uas 
executed  300  times  and  there  uere  no 
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OBJECTIVE:  Test  use 
of  the  following 
syntactical  con- 
struct variations 
for  the  READ  slate- 


INVALID  KEY  paths  taKen. 

OBJECT I \E:  Use  each  of  the  specified  READ 
statements  to  retrieve  records  from  the  file 
and  verify  that  the  expected  record  uas  pro- 
vided. 


ife  • 
ii#-; 


See  VI  - 4.4.2 

In  tests  INX- TEST- 
002.  01  thru  INX- 
TEST-802.04  the  NEXT 
phrase  of  the  READ 
statement  is  used 
to  retrieve  re- 
cords sequentially 
from  a file  spec- 
ified in  the  DYNAMIC 
Access  Mode.  ^ 

See  VI  - 4. 4. 3(5) 


In  tests  I NX- TEST- 
002.  05  thru  1NX- 
TEST-002.09  the 
READ  statement  is 
used  to  retrieve 
records  randomly 
from  a file  spec- 
ified in  the  DYNAMIC 
Access  Mode. 

See  VI  - 4.4.3(b) 

082.01  READ  fi»e-name-l 

NEXT 

002.02  READ  file-name-1 

NEXT  RECORD  INTO 
ident i f ter 


002.03  READ  f i 1 e-name- 1 
NEXT  INTO  ident- 
ifier 


002.04  READ  f i 1 e-name- 1 
NEXT  i HI 0 ident- 
i r ior  h!  END 


1.  This  test  reads  10  records  and  verifies 
that  the  expected  records  were  provided. 

2.  This  test  read3  10  records  and  verifies 
that  the  expected  records  were  provided. 
The  contents  of  the  identifier  are  also 
verified  for  acc  acy. 

3.  This  test  reads  10  records  and  verifies 
that  the  expected  records  were  provided. 
The  contents  of  the  identifier  are  also 
verified  for  accuracy. 

4.  This  test  reads  the  file  until  an  end-of- 
tile  condition  occurs.  The  AT  END  path 
should  be  tat-ei,  ■ nr.n  encountering  the 
301st  read. 


002.85  READ  f il e-name- 1 
KEY  IS  data- 
name-2 


5.  This  lest  reads  10  records  and  verifies 
that  the  expected  records  uere  provided. 
The  prime  record  Key  is  used  to  retrieve 
the  record. 


002.06  READ  fil e-name- 1 
INTO  identifier 
KEY  IS  data- 
name-2 


6.  This  test  reads  10  records  and  verifies 
that  the  expected  record  was  provided. 
The  "idenlif ler“  is  also  verified  for 
accuracy.  The  prime  record  Key  is  used 
to  retrieve  the  record. 


002.07  READ  file-name-1 
RECORD  KEY  data- 
name-1 


7.  This  test  reads  10  records  and  verifies 
that  the  expected  records  uere  provided. 
The  alternate  record  Key  is  used  to  re- 
trieve the  record. 


002.08  READ  file-name-1 
RECORD  KEY 
data-name-2 
INVALID 


002.09  READ  file-name-1 
RECORD  KEY  IS 
data  -name-1 
INVALID  KEY 


O03  OBJECTIVE:  Test  use 

of  the  fol loving 
syntactical  con- 
struct variations 
for  the  START 
statement 


8.  This  test  reads  10  records.  Each  Key 
value  provided  does  not  match  any  Key 
value  existing  in  the  file.  The  INVALID 
KEY  path  should  be  taKen  for  each  read. 
The  prime  record  Key  is  used. 

9.  This  test  reads  10  records.  Each  Key 
value  provided  does  not  match  any  Key 
value  existing  in  the  file.  The  INVALID 
KEY  path  should  be  taKen  for  each  read. 
The  alternate  record  Key  is  used. 

OBJECTIVE:  Read  the  file  sequentially  and 
verify  that  each  of  the  specified  START 
statements  correctly  positioned  the  current 
record  pointer. 


See  VI  - 4.6.2 


The  tests  INX-TEST- 
003.08  through  INX- 
TEST-003. 16  will 
use  the  al ter note 
Key  as  the  Key  of 
reference. 

See  VI  - 4.6.3f5t 

Tests  IMX-TEST- 
OU3.01  through  INX- 
TEST-003.07  and 
IHX- TEST-003. 17 
thru  in::- TEST- 
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003.01 


S«s  VI  - 4. 6. 3(2) 
START  file-name-2 


1.  Foil  owing  execulon  of  tho  START,  10 
records  are  read  sequentially  and 
verified  for  accuracy.  When  the  KEY 
phrase  is  not  specified,  the  primary 
record  Key  <data-name-4)  is  used  as 
the  Key  of  reference. 


603.02 


START  flle-name-2 
KEY  EQUAL  TO 
data-name-4 


2.  Read  10  file-name-2  records  sequent- 
ially and  verify  that  the  START 
statement  permitted  the  correct  records 
to  be  accessed.  The  primary  Key  is 
used  as  the  Key  of  -reference  (data-name-4). 


003.03 


START  file-name-2 
KEY  IS  EQUAL  TO 
dat  a-name-4 


Read  10  file-name-2  records  sequent- 
ially and  verify  that  the  START  cic:  *- 
ment  permitted  the  correct  records 
to  be  accessed.  The  primary  Key  is 
used  as  the  key  of  reference  (data-name-4). 


003.04 


START  file- name -2 
KEY  IS  EQUAL 
data-name-4 


Read  10  file-name-2  records  sequent- 
ially and  verify  that  the  START 
statement  permitted  the  correct  records 
to  be  accessed.  The  primary  Key  is 
used  as  tho  Key  of  reference  (data-name-4) 


003.05 


START  file-name-2 
\ EY  I-  = data- 
name-4 


5. 


Read  10  file-name-2  records  sequent- 
ially and  verify  that  the  START 
statement  permitted  the  correct  records 


’■S5- 


U)3 . 06 


083.0? 


003.08 


003.09 


003.10 


083.11 


003. 12 


603.13 


003.14 


START -f 11 e-name-2 
KEY  IS  GREATER 
THAN  _data-name-4 


START  f 11 e-name-2 
KEY  GREATER  THAN 
daia-name-4 


START  f 11  e-name-2 
KEY  IS  GREATER 
data-name-3 


to  be  accessed.  The  primary  Key  is  used 
as  the  Key  of  reference  (data-name-4) . 

6.  Read  10  file-name-2  records  sequent- 
ially and  verify  that  the  START 
statement  permitted  the  correct  records 
to  be  accessed.  Tbo  primary  Key  is  used 
as  the  Key  of  reference  (data-name-4). 

7.  Read  10  f 11 e-name-2  records  sequent- 
ially and  verWy  that  the  START 
statement  permitted  the  correct  records 
to  be  accessed.  The  primary  Key  is  used 
as  the  Key  of  reference  (dala-name-4). 

8.  Read  10  file-name-2  records  sequentially 
and  verify  the  START  statement  permitted 
the  correct  record  to  be  accessed.  The 
alternate  record  Key  is  used  as  the  Key 
of  reference  (data-name-3) . 


START  file-name-2 
KEY  IS  > data- 
name-3 


9.  Read  10  file-name-2  records  sequentially 
and  verify  the  START  statement  permitted 
the  correct  record  to  be  accessed.  The 
alternate  record  Key  is  used  as  the  Key 
of  reference  (data-nams-3) . 


START  file-name-2 
KEY  > data-name-3 


10.  Read  10  file-name-2  records  sequentially 
and  verify  the  START  statement  permitted 
the  correct  record  to  be  accessed.  The 
alternate  record  key  is  used  as  the  key 
of  reference  (data-name-3). 


START  file-name-2 
KEY  IS  NOT  LESS 
THAN  data-name-3 


11.'  Read  10  file-name-2  records  sequentially 
and  verify  ihe  START  statement  permitted 
the  correct  record  to  be  accessed.  The 
alternate  record  Key  is  used  as  the  Key 
of  reference  (data-name-3). 


START  file-name-2 
KEY  IS  HOT  LESS 
data-name-3 


12.  Read  10  file-name-2  records  sequentially 
and  verify  the  CTART  statement  permitted 
the  correct  record  to  be  accessed.  The 
al tet note  record  Key  is  used  as  the  Key 
of  reference  (data-name-3). 


STAPT  file-name-2 
KEY  NOT  LESS 
THAN  Uata-rcirne-3 


13.  Read  10  file-name-?  records  sequentially 
and  verify  the  START  statement  permitted 
the  correct  record  to  be  accessed.  The 
alternate  record  Key  is  used  as  the  key 
of  reference  i data -name -3 ' . 


S friF’T  f i i e-name-2 
(Ei  IS  NOT  \ 


14,  Read  10  file-name-.?  records  sequentially 
and  verify  the  S TART  statement  permitted 
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603. 15  START  f il e-name- 1 
KEY  IS  EQUAL  TO 
da t a- name- 1 
INVALID  KEY 


003.16  START  I Ile-nes»-l 
KEY  IS  EQUAL  13 
data-name-1 
INVALID 


003.1?  START  file-name-1 
INVALID  KEY 


083.18  START  file-namo-1 
J INVALID  KEY 


803.19  START  f 11  e-name- 1 
KEY  IS  EQUAL  TO 
data- name- 1 ; 
INVALID  KEY 


the  correct  record. to  be  .accessed . The 
alternate  record  Key  is  used  as  the  Key 
of  refere^e  (data-nome-3) . ' 

15.  Read  10  records  sequentially  via  the 
"READ  file-name-1  NEXT  RECORD*  statement 
find  verify  that  the  START  statement  per- 
mitted the  correct  record  to  be  accessed. 
The  al ternate  record  Key  is  used  as  the 
Key  of  reference  (dntn-namo-l) . 

16.  Establish  a value  in  data-name-1  equiva- 
lent to  the  301st  logical  record  of  the 
file.  The  INVALID  KEY  path  is  expected 
to  be  executed.  The  alternate  record  Key 
is  used  as  the  Key  of  reference  (data- 
naroe- 1 ) . 

17.  Establish  a value  in  the  prime  record  Key 
(data-name-2)  equivalent  to  the  301st 
logical  record  of  the  file.  The  INVALID 
KEY  path  is  expected  to  be  executed. 

18.  Establish  a value  in  the  prime  record  Key 
(data-name-2)  equivalent  to  the  301st 
logical  record  of  the  file.  The  INVALID 
KEY  path  is  expected  to  be  executed. 

19.  Establish  a value  in  the  prime  record  Key 
(dala-rame-1)  equivalent  to  the  300lh 
logical  record  of  the  file.  Establish  a 
value  in  the  alternate  record  Key  (data- 
name-1)  to  a value  that  dees  not  match 
any  other  alternate  Key  value  in  the  file. 
The  INVALID  KEY  path  is  expected  to  be 
executed. 
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1974  CCVS  TEST  SPECIFICATES 
INDEXED  I~0  Module  - Level  2 


IX2SET82 

1X209 

GENERAL: 


(Name  of  test  set) 

(Name  of  run  unit) 

This  run  unit  is  the  first  of  a series  uhich  processes  2 Indexed 
files.  The  function  of  this  program  is  to  create  2 Indexed  files 
sequent ialy  (ACCESS  MODE  SEQUENTIAL)  and  verify  that  is  was 
created  as  expected.  The  files  are  ru5sed  to  subsequent  run 
units  for  processing. 

X-Card  parameters  uhich  must  be  supplied  for  this  program  are: 

X-24  • idexed  file  - for  ASSIGN  TO  clause  (passed  to  1X210) 

X~25  Indexed  filo  - for  ASSIGN  TC  clause  (passed  to  1X210) 

X-35  System  printer 

X-74  VALUE  OF  implementor-name 

X-75  Object  of  VALUE  OF  clause  for  file  X-24  above 

X-76  Object  of  VALUE  OF  clause  for  file  X-25  above 

X-82  Source-Computer 

X-83  Object-Computer. 
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IKX-TEST- 


SYNTACTICAL 
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SELECT  file-name-1 
ORGANIZATION  IS 
INDEXES 
RECORD  KEY  IS 
dato-ncw»-I 
ALTERNATE  RECORD 
KEY  IS  data- 
name-2  WITH 
DUPLICATES 
ACCESS  MODE  IS 
SEQUENTIAL 

Soe  VI  - 2. 1.2.2 

FD  f i 1 ©-name- 1 
LABEL  RECORDS 
STANDARD 
VALUE  OF 

Implemento'— 
name  IS 
1 iteral 


SEMANTIC  ACTION 

OBJECTIVES  This  test  creates  an  indexed 
file  sequentially  with  the  following 
characteristics! 


p,®fiE?rc»  j;r-. 

'LlVSfrft-ri*!'  . 

. -■'CH-eff • \ 


File  size 
Record  size 
Blocking 

ALTERNATE  KEY  size 
ALTERNATE  sequence 


308  records 
240  characters 
1 record! 

29  characters 
increasing  mimer-  , 
ical  value  by  incre- 
ments of  ! (1  thru  3001: 
in  positions  1 thru  10 
of  the  key.  Key 
positions  il  tnru  29 
contain  alphanumeric 
characters  which  are 
the  same  for  each 
record  key. 


RECORD  KEY  size  * 10  characters 
RECORD  KEY  sequence  * increasing  numerical 

value  by  increments  of  2 
(2  thru  600) . 


See  VI  - 3.3.2 

URITE  record-name 
INVALID  KEY 

See  VI  - 4.8.2 


See  VI  - 4. 8. 4(9)  The  URITE  statement. 


READ  f i 1 e-name- 1 
AT  END 

See  VI  - 4.4.2 


OBJECTIVE:  This  test  reads  file-name- 1 
created  in  INX-TEST-001  above  and  verifies 
the  existance  and  accuracy  of  the  300 
records  created.  The  AT  END  phrase  is  used 
in  the  READ  statement  and  it  should  be 
executed  the  301st  time  the  READ  statement 
is  executed. 


See  V!  - 4. 4. 4(9)  The  READ  statement, 


SELECT  file-name-2 
ORGANIZATION  IS 
INDEXED 
RECORD  KEY  IS 
data-narne-3 
ALTERNATE  RECORD 


OBJECTIVE:  This  est  creates  an  indexed 
file  sequentially  with  the  following 
character ist ics: 


File  size 
Record  size 


300  records 
240  characters 
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KEY  IS  data- 
name-4  WITH 
DUPLICATES 
ACCESS  MODE  IS 
SEQUENTIAL 

See  VI  - 2. 1.2.2 

FD  file-name-2 
LABEL  RECORDS 
STANDARD 
VALUE  OF 

i mplemen l cr- 
name  IS 
1 iterai 


Blocking 

ALTERNATE  KEY  size 
ALTERNATE  sequence 


1 record 
29  characters 
increasing  numer- 
ical value  by  Incre- 
ments o 1(1  thru  300) 
in  positions  1 thru  10 
of  the  key.  Key 
posiiions  11  thru  29 
contain  alphanumeric 
characters  which  are 
tne  same  for  each 
record  Key. 


RECORD  KEY  size  3 10  characters 
RECORD  KEY  sequence  = increasing  numerical 

value  by  increments  of  2 
(2  thru  G00). 


See  VI  - 3.3.2 

URITE  record-name 
INVALID  KEY 

See  VI  - 4.8.2 


See  VI  - 4. 8. 4(9)  The  URITE  statement. 


READ  f i 1 e-narne-2 
AT  END 

See  VI  - 4.4.2 


OBJECTIVE:  This  test  reads  file-name-2 
created  in  INX- TEST-003  above  and  verifies 
the  ex i stance  and  accuracy  of  the  3P0 
records  created.  The  AT  END  phrase  is  used 
in  the  READ  statement  and  it  should  be 
executed  the  301st  time  the  READ  statement 
is  executed. 


See  VI  - 4.4.4t9>  The  READ  statement. 
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IX2SET02 

1X210 

GENERAL: 


1974  CCVS  TEST  SPECIFICATIONS 

INDEXED  1-0  Module  - Level  2 

(Name  of  lest  set) 

(Name  of  run  unit) 


This  is  the  second  run  unit  in  the  lest  set.  This  run  unit  pro- 
cesses 2 files,  one  has  been  designated  as  ACCESS  MODE  IS 

DYNAMIC  and  the  second  is  designated  as  ACCESS  MODE  IS  SEQUENTIAL. 

The  function  of  this  run  unit  is  to  test  level  2 featues  asso- 
ciated with  the  READ  statement.  The  features  tested  are  as  follows. 

(1)  Verify  that  the  current  record  pointer  can  be  positioned  pro- 
perly for  sequential  READs. 

(2)  Verify  that  the  records  read,  which  contain  duplicate  Key 
values,  are  retrieved  in  the  sequence  in  which  they  were 
written  to  the  set. 

(3)  Use  of  a random  READ,  for  a file  designated  as  DYNAMIC,  to 
establish  the  current  record  pointer  for  subsequent  sequential 
READs. 

(4)  Verify  that  the  FILE  STATUS  dala-item  was  updated  to  reflect 
the  presence  of  duplicate  keys. 

X-Card  parameters  which  must  be  supplied  for  this  program  are: 


X-24 

Indexed  file  - for  ASSIGN 

TO  clause 

(From 

1X209) 

X-25 

Indexed  file  - for  ASSIGN 

TO  clause 

(From 

1X209) 

X-55 

System  printer 

X-74 

VALUE  OF  implementoi — name 

X-75 

Object  of  VALUE  OF  clause 

for  X-24 

X-7  6 

Object  of  VALUE  OF  clause 

for  X-25 

X-82 

Source-Computer 

X-83 

Ob  jec  t -Cornpu  t ©r . 

TEST 

INX-TEST 


SYNTACTICAL 

CONSTRUCT 


SEMANTIC  ACTIONS 


005 


SELECT  f i 1 e-name- 1 
ORGANIZATION  IS 
INDEXED 
RECORD  KEY  IS 
data-name- 1 
ALTERNATE  RECORD 
KEY  IS  data- 
name-2  UITH 
DUPLICATES 
ACCESS  MODE  IS 
SEQUENTIAL 
FILE  STATUS  IS 
data-name-3 


SELECT  file-name-2 
ORGANIZATION  IS 
INDEXED 
RECORD  KEY  IS 
data-name-4 
ALTERNATE  RECORD 
KEY  IS  dato- 
name-5  UITH 
DUPLICATES 
ACCESS  MODE  IS 
DYNAMIC 

FILE  STATUS  IS 
data-name-S 

LISE  AFTER  STANDARD 
ERROR  PROCEDURE  ON 
f i 1 e-name-2 


OBJECTIVE:  Read  and  verify  l he  300  records 
for  each  file  created  in  the  previous  run 
unit  for  use  by  this  run  unit.  The  file  is 
opened  as  1-0  for  reading  and  verification. 

In  addition  every  49lh  and  55th  record  is  up- 
dated via  the  REWRITE  such  that  the  alternate 
Key  values  are  changed.  This  updating  is 
used  in  later  tests  for  verifying  the  correct 
record  retrieval  sequence  of  modified 
alternate  key  values  and  duplicate  Key  values. 

NOTE:  All  explicit  record  references,  unless 

otherwise  noted,  will  be  in  terms  of  the 
RECORD  KEY  values. 


005.01  READ  file-ncirne-l 
RECORD  AT  END 

REWRITE  record-name 
INVALID  KEY 


1.  This  test  reads  filp-narne-2  and  verifies 
each  record  for  ctccuray.  On  every  49th 
read  the  a)  t emote  Key  value 
fdc>ta-name-2)  is  made  equal  to  the  alter- 
nate Key  value  of  the  50th  recorc 
'alternale  Key  "cilue  decreased  by  l) 
and  the  record  rewritten.  On  every  55th 
rend  tne  alternate  Key  < '•:>  1 uo  is  increased 
hy  4 and  the  record  rewritten.  A check  is 
made  to  vei  ity  that  rill  the  300  records 
were  processed. 


2.  This  test  verifies  that  all  READs.  and 
REWRITES  were  successful,  i.e,.  no  INVALID 
( FYs  or  unexpected  AT  END  path  uus  taKen. 
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REWRITE  record-name 
INVALID  KEY 


005.04 


006 


006.01 


READ  file-name-1 
RECORD  AT  END 


006.02 


START  f II  e-name- 1 
KEY  IS  EQUAL  TO 
data-name--2 


READ  f lie-name- 1 
RECORD  AT  END 


006.03 


ST'iRT  f lie-name- 1 
KEY  IS  EQUAL  TO 
daln-name-2 


READ  f i 1 e-name- 1 
RECORD  AT  END 


007 


3.  This  test  reads  the  file  and  verifies  each 
record  for  accuracy.  On  every  49th  read 
the  alternate  Key  value 
(data-name-2)  is  made  equal  to  the  al ter- 
nate  Key  value  of  the  50th  record 
(the  alternate  Key  value  is  decreased  by  1) 
and  the  record  rewritten.  On  every  55th 
read  the  alternate  Key  value  is  increased 
by  4 and  the  record  rewritten.  A checK 
is  made  to  verify  that  all  the  300  records 
were  processed. 


This  test  verifies  that  all  REABs.  and 
REURITEs  were  successful-  i.e.»  no  INVALID 
KEYs  or  unexpected  AT  END  path  was  taKen. 


OBJECTIVE:  Verify  that  the  appropriate  re- 
cords can  be  retrieved  sequentially  when  the 
current  record  pointer  is  updated  or  modified. 
The  file  used  is  designated  as  the  ACCESS 
MODE  IS  SEQUENTIAL. 


1.  The  file  is  opened  as  input  to  establish 
the  current  record  pointer  to  the  first  re- 
cord currently  existing  within  the  file 
and  establ ish  the  prime  record  Key  as  the 
Key  of  reference.  The  read  statement  is 
executed  and  the  record  verified  as  being 
the  f irsl  one  in  the  file. 


2. 


The  START  statement  Is  used  to  alter  the 
current  Key  of  reference  from  the  prime 
record  Key  to  the  alternate  record  Key. 

A sequential  read  (format  1)  is  used  to 
verify  that  the  current  record  pointer  has 
been  updated  to  the  new  Key  of  reference. 


See  VI  - 4.4.4(2ia  The  READ  statement. 


3. 


The  START  statement  is  used  to  modify  the 
current  record  pointer  to  another  starting 
position  in  the  file.  The  Key  of  refer- 
ence is  the  same  as  the  previous 
read  test  ( INX- TEST-006. 02) . The  READ 
is  expected  to  retrieve  the  recorv  as 
positioned  by  the  START  statement. 


See  VI  - 4. 4. 4(2) a The  READ  statement 


OBJECTIVE:  Verify  that  the  appropriate  re- 
cords can  be  retrieved  sequentially  when  the 
current  record  point©!  is  uprated  or  modified. 
The  file  used  is  that  designated  in  the 
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007.01 


READ  f ile-name-2  NEXT 
RECORD  AT  END 


007.02 


READ  f 11  e-name-2  NEXT 
RECORD  AT  END 


DYNAMIC  Access  Mode. 

1.  The  file  is  opened  as  inpul  to  establish 
the  current  record  pointer  to  the  first  re- 
cord currently  existing  within  the  file 
and  establ ish  the  prime  record  Key  as  the 
Key  of  reference  The  read  statement  is 
executed  and  the  record  verified  as  being 
the  first  one  in  the  file. 

2.  The  START  statement  is  used  to  alter  the 
current  key  of  reference  from  the  prime 
record  key  to  the  alternate  record  Key. 

A sequential  read  (formal  1)  is  used  to 
verify  that  the  current  record  pointer  has 
been  updated  to  the  new  Key  of  reference. 


007.03  READ  file-name-2  NEXT 
RECORD  AT  END 


See  VI  - 4.4.4(2)a  The  READ  statement. 

3.  The  START  statement  is  used  to  modify  the 
current  record  pointer  to  another  starting 
position  in  the  file.  The  Key  of  refer- 
ence will  be  the  same  as  the  previous 
read  test  (IliX  TEST-007.03).  The  READ 
is  expected  to  retrieve  the  record 
positioned  bu  the  START  statement. 

See  VI  - 4.4,4<’2)a  The  READ  statement. 


READ  f i 1 e-name-2 
NEXT  RECORD  AT 
END 


OBJECTIVE:  Test  the  record  retrieval  sequence 
for  alternate  Keys  which  have  duplicate  Key 
values  when  the  sequential  READ  is  used. 

The  retrieval  sequence  is  expected  to  be  in 
the  order  in  which  they  were  created  by  the 
WRITE  or  updated  by  the  REWRITE.  The  file 
being  processed  is  in  the  DYNAMIC  mode.  The 
Keys  and  associated  values,  in  RECORD  KEY 
sequence,  are  as  fellows  with  the  numbers  in 
parenthesis  indicating  the  sequence  in  which 
the  dupl  icate  Key  values  were  created. 


RECORD  KEY 
(data-name-4) 


ALTERNATE  KEY 
(data-name-5) 


253 

252 

250  (3"1  update  via 
REWRITE 
250  (ll  created 

via  WRITE 
250  (2.1  created 

via  WRITE  l 

248 


t 
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53  24? 

54  246 

55  249  - updated  via 

REWRITE 

56  244 

NOTE:  fill  explicit  record  references,  unless 

otherwise  noted,  will  be  in  terms  of 
the  RECORD  KEY  values. 


008.01  START  filo-name-2 
INVALID  KEY 

START  f i 1 e-name-2 
KEY  IS  EQUAL  TO 
da la-name-5 
INVALID  KEY 


Open  file-name-2  as  input  and  load  data- 
name-4  uith  a Key  value  for  the  110th  record 
(alternate  Key  value  190). 

The  START  statement  is  used  to  establ ish 
the  current  record  pointer  firstly  for  the 
prime  record  Key  as  the  Key  of  reference 
and  secondly  for  the  alternate  Key  as  the 
Key  of  reference.  There  are  61  records  read 
read  from  the  file.  The  61st  record  should 
have  the  same  Key  value  (Key  value  250)  as 
49lh  and  51st  records  and  be  the  first  re- 
cord written  via  the  WRITE  when  the  file  was 
created. 


See  VI  - 4.4.4(14)  The  READ  stater jnt. 


008.02 


2.  Read  the  next  record.  This  should  be  the 
51st  record  created.  The  record  contains 
the  same  Key  values  as  the  50th  and  49 l h 
records  and  should  be  the  second  record 
written  via  the  WRITE  statement  when  the 
file  was  created. 


See  VI  - 4.4.4(14)  The  READ  statement. 


008.03 


Read  the  next  record.  This  should  be  the 
49th  record.  The  record  contains  the  same 
Key  i 'a lues  as  the  50th  and  51st  records  and 
should  be  the  record  updated  via  the 
REWRITE  statement. 


See  VI  - 4,4.4(14)  The  READ  statement, 


OBJECTIVE:  Test  the  record  retrieval  sequence 
for  alternate  tens  which  haw©  duplicate  values 
when  the  sequent  . , PEAT)  statement  is  used. 

The  ret  rie' 'iii  =e  i"e  I.- o is  e*  pec  ted  to  be  in 
the  or  a -r  in  win.  S t w>‘t  © created  by  the 
WRITE  or  FP.P'nb  Ihe  tile  taking  processed  is 
in  the  SEOunil  Ini.  no-jn.  The  tens  and  asso- 
ciated ' ilues  in  their  respect  h'e  sequence  are 
with  the  numbers  in  parenthesis  indicating 
the  sequence  in  which  the  duplicate  Key 


65 


Ilift 


I-'’-,-.' 


values  wre  created: 

RECORD  KEY 
(data-name-1) 


ALTERNATE  KEY 
(data-name-2) 


4? 

253 

m 

48 

252 

jl 

49 

250 

(3)  update  via 

REWRITE 

jH 

50 

250 

(1)  created 

n 

via  URITE 

51 

250 

(2)  created 

wS 

via  URITE 

hi 

52 

248 

53 

24? 

fJS 

54 

246 

■iM 

55 

249 

- updated  via 

hlj 

REWRITE 

h j 

56 

244 

i ‘I 

009.01  START  flle-name-1 
INVALID  KEY 

START  f i 1 e-name-1 
KEY  IS  EQUAL  TO 
dnta-name-2 
INVALID  KEY 


NOTE:  All  explicit  record  references 

unless  otherwise  notod,  will  be 
in  terms  of  the  RECORD  KEY  values, 

1.  Open  file-name-i  a.?  input  and  load  data- 
name-1  with  the  Key  value  for  the 
I10th  record  (alternate  key  value  198). 

The  START  is  used  to  establish  the  cui — 
re.it  record  pointer  firstly  for  the  prime 
record  Key  and  secondly  for  the  al- 
ternate Key  as  the  key  of  reference.  Sixty- 
one  records  are  read  (key  values  are  in 
inverse  sequence).  This  should  be  the  50th 
record,  have  the  same  Key  value 
(key  value  250)  as  the  49th  and  5 1st  records 
and  be  the  first  record  written  via  th* 

URITE  when  the  file  was  created. 


See  VI  - 4.4.4(14)  The  READ  statement. 


009.02 


009.02 


2.  Read  the  next  record.  This  should  be  the 
51st  record  created.  The  record  contains 
the  same  key  value  as  the  50th  and  49th 
records  and  should  be  the  second  record 
written  via  the  URITE  statement  when  the 
file  was  created. 

See  VI  - 4.4.4(14)  The  READ  statement. 

3.  Read  the  next  record.  This  should  be  the 
49 th  record.  The  record  contains  the  same 
Key  value  as  the  50th  and  51st  records  and 
should  be  the  record  updated  via  the 


(/(f 


REWRITE  statement 


818 


810.0!  READ  file-name-2 
RECORD  KEY  IS 
data-name-5 
INVALID  KEY 


018'.  02 


018.03 


010. 04  READ  file-ncime-2 
NEXT  PECCiPD  AT 
END 


011 


See  VI  - 4.4.4(14)  The  READ  statement. 

OBJECTIVE:  Test  the  record  retrieval  sequence 
for  alternate  Keys  uhieh  have  duplicate  values 
when  the  random  READ  statement  is  used. 

The  file  being  processed  is  in  the  DYNAMIC 
mode. 

A sample  of  the  keys  and  associated  values* 
in  RECORD  KEY  sequence  * are  shown  in  INX- 
TEST-008  above. 

1.  Before  the  record  is  read,  the  ALTERNATE  KEY 
data-item  (data-name-5)  is  loaded  with  Key 
value  250.  Followng  the  read  the  record  re- 
trieved is  checked.  This  test  expects  the 
50th  record  created  via  the  WRITE  statement 
to  be  provided. 

See  VI  - 4.4.4(17)  The  READ  statement. 


2.  This  test  determines  whether  or  not  the  j I 

INVALID  KEY  path  was  taken  as  a result  of  I 

the  READ  in  I NX- TEST-0 10. 01  above.  This  test  j '3 

does  not  expect  an  INVALID  KEY  condition.  j 1 

See  VI  - 4.4.4(17)  The  READ  statement.  1 


3.  This  test  checks  the  FILE  STATUS  data-item 
fdata-name-6)  followng  the  read  in  INX- 
TEST-010.01,  This  test  expects  the  READ 
to  be  successful  and  STATUS  KEY  to  re- 
flect the  presence  of  duplicate  keys  thus 
data-name-6  should  contain  the  contents 
"01". 


See  V!  - 1.3.4. 1 Status  Key  1 and  VI  - 1.3. 4. 2 j I 

Status  Key  2.  ; 1 

4.  Following  the  random  READ  in  INX-TEST-10.01,  i j 

the  next  three  records  are  read  sequentially  . J 

and  each  record  check . This  test  expects  1 

records  to  retrieved  in  the  sequence  defined  <1 

by  the  ALTERNATE  KEY  ■ dot a-name-S'1  values 
e . 1 1 . roc  or  d seauenco  m i!>ii  51.  IT  arid  43. 

See  VI  - 4.4.4I lb<  The  READ  statement. 

08  JEST  PC:  Use  the  random  READ  statement  to 
estubl isn  the  current  record  pointer  for 


811.01 


READ  f i 1 •j-name-2 
NEXT  RECORD 
AT  END 


011.82 


fjf  ~ { 


READ  file-ncm»-2 
RECORD  KEY  IS 
dala-name-5 
INVALID  KEY 


011.03 


READ  file-name-2 
NEXT  RECORD  AT 
END 


011.04 


READ  file-name-2 
KEY  IS  EQUAL 
dala-name-4 

READ  flle-name-2 
NEXT  RECORD 
AT  END 


subsequent  sequent ial  READs.  The  random  READ 
uses  the  optonal  KEY  IS  phrase  in  its  con- 
struct. 

1.  The  file  is  opened  os  input  to  establish 
. the  current  record  pointer  to  the  first 

record  currently  existing  jithln  the  file 
and  establish  the  prime  record  Key  (data- 
narae-4)  as  the  Key  of  reference.  The  READ 
statement  is  executed  and  the  record  is 
verified  as  ’-sing  the  first  record  associ- 
ated uiith  th«  prime  record  Key. 

2.  The  alternate  record  Key  (dala-name-5) 
is  loaded  uith  the  Key  value  to  retrieve 
the  1st  record  as  defined  by  the  alternate 
Key  (the  300th  record  created).  The  read 
statement  is  executed  and  the  record  con- 
tents verified. 

See  VI  - 4.4.4(15)  The  READ  statement. 

3.  The  file  is  read  until  200  records  have  been 
processed.  Each  record  is  verified  for 
accuracy.  Uith  the  DYNAMIC  mode  speci- 
fied, it  is  expected  that  the  Key  of  refer- 
ence used  for  this  READ  statement  (format  1) 
will  be  the  same  Key  of  reference  used 

by  the  format  2 READ  statement  above. 

See  VI  - 4.4.4(15)  The  READ  statement. 

4.  Verify  that  the  Key  of  reference  established 
by  the  Format  2 READ  statement  in  2 above 
and  used  by  the  Format  1 READ  statement  in 

3 above  can  be  reestablished  to  a different 
Key  of  reference.  The  RFAD  statement  is 
used  to  establish  the  prime  record  Key  as 
Key  of  reference.  The  file  is  then  read 
sequentially  until  200  records  have  been 
pi  ocessed.  It  is  expected  that  the  records 
will  bt-  read  in  sequence  as  defined  by  the 
prime  record  Key  (data-name-4) . 

See  VI  - 4.4.4(15)  The  READ  statement. 

OBJECTIVE:  Verify  that  uihen  the  Format  2 READ 
statement  is  used  without  the  KFY  phrase,  the 
Key  of  reference  established  is  the  prime 
recot  d Key  (da la-name-4)  and  the  same  one 
used  fo>'  subsequent  executions  of  Format  1 / 

READ  statements  until  a different  Key  of  /* 
reference  is  established.  » 


•}  012.81  OPEW  INPUT  file- 


START  f il e-name-2 
KEY  IS  EQUAL  ' 

, i ; TO  data-name-5 
; ' 
READ  if  i i e-nome-2 
; NEXT  RECORD  AT 
END 


Establish  the  alternate  key  <data-name-5) 
as  the  Key  of  reference  and  verify  that  the 
records  can  be  accessed  by  ihet  k#g.  The  1 
al ter hdle  record  key  Cdata-name-S)  is 
loaded  i, with  the  key  value  to  retrieve  the  . 
1st  record  as  defined  by  the  alternate,  Key. 
The  START  statement  eslabi ishes  the  Key  of 
reference  and  100  records  are  read.  The 
recordsare  ye  :f led  to  assure  correct 
record  retrieval. 


012.02  READ  filo~name~2 


2. 


Use  (he  READ  statement  without  the  KEY  IS 
and  INVALID  KEY  phrase  to  establish  the 
prime  record  Key  as  the  Key  of  reference. 
The  prime  record  key  (data-name-4)  is 
loaded  with  the  Key  value  of  the  100lh 
record.  Following  the  read,  the  record  is 
checked  to  verify  that  the  correct  record 
was  retrieved.  Record  number  100  is 
expected  to  be  retrieved. 


See  VI  - 4.4.4(16)  The  READ  statement. 


012.03 


READ  i i 1 e-name-2 
NEXT  RECORD  AT 
END 


3.  The  Format  1 READ  statement  is  used  to 
retrieve  the  records  sequentially.  When 
(he  file  is  in  the  DYNAMIC  mode  the  key  of 
reference  should  be  lhal  established  by  the 
random  READ  statement  above.  One  hundred 
records  are  read  and  the  contents  checked 
to  verify  that  the  correct  records  were 
relr ieved. 


See  VI  - 4,4.4(16)  The  READ  statement. 
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1974  CCVS  TEST  SPECIFICATIONS 
INDEXED  1-0  - Level  2 


1X21 1 (Name  of  run  unit) 

GENERAL:  The  function  of  this  run  unit  is  to  test  the  permissible 

language  syntax  and  language  semantic  relating  to  non-unique 
RECORD  KEY  data~items.  Qualification  is  required  to  uniquely 
identify  the  RECORD  KEY  when  referenced  explicitly.  The  OPEN 
and  START  statements  are  tested  for  correct  positioning  of  the 
current  record  pointer  for  non-unique  RECORD  KEY  data-items. 

The  elements  tested  in  this  run  unit  are: 

(1)  READ  Statement  requiring  qualification  in  the  KEY  phrase; 

(2)  START  Statement  requiring  qualification  in  the  KEY  phrase; 

(3)  START  Statement  without  explicit  Key  qualification 

(4)  RECORD  KEY  requiring  qualification. 

(5)  OPEN  statement  used  to  position  the  current  record  pointer 

for  a non-unique  RECORD  KEY. 

Each  element  tested  will  be  exercised  semantically  by  this 
rout ine. 

The  appropriate  implementot — names  which  are  to  be  supplied 
for  this  program  are  identified  by  x-card5.  The  x-ccrds 
used  by  this  program  are: 

x-24  Indexed  file-1  for  first  ASSIGN  TO  clause 

x-25  Indexed  file-2  for  second  ASSIGN  Tg  clause 

x-26  Indexed  file-3  for  third  ASSIGN  TO  clause 

x-55  System  printer 

x-74  VALUE  OF  implementor-name 

x-75  Object  of  VALUE  OF  for  file-1 

x-?6  Object  of  VALUE  OF  for  file-2 

x-77  Object  of  VALUE  OF  for  file-3 

x-S2  Source-Computer 

x-83  Object-Computer 


TEST  SYNTACTICAL 

IHX-TEST  CONSTRUCT 

001  OBJECTIVE:  Create  and 

verify  3 files  which 
require  qual if icai ion 
to  uniquely  identify 
the  RECORD  KEY.  File- 
name-1 and  file-name-2 
require  qualification 
to  uniquely  identify 
the  RECORD  KEY  between 
files  in  the  program. 
File-name-3  requires 
qualification  to  unique- 
ly identify  a RECORD 
KEY  data-item  within 
a record  associated 
with  the  file. 


SEMANTIC  ACTION 

OBJECTIVE:  Create  three  files  for  testing 
the  READ*  OPEN  and  START  statements.  The 
characteristics  defined  in  the  SELECT 
Clouse  are  used  for  files  f i 1 e-name- 1 - 
file-name-2  and  file-name-3  respectively. 
Each  file  will  contain  the  following  file 
character ist ics: 

File  size  <*  300  records 

Record  size  = 240  characters 

Blocking  * 1 record 

RECORD  KEY  = 10  characters 

RECORD  KEY  sequence  = increasing 

numerical  value  by  incre- 
ments of  2 (2  thru  600) 
for  file-name-1*  increasing 
numerical  value  by  incre- 
ments of  2 (302  thru  000)  for 
file-name-2  and  increasing 
numerical  value  by  incre- 
ments cf  1 (1  thru  300J 
for  file-name-3. 

(NOTE:  For  file-name-3  data- i terns, 
other  than  the  one  associated  with 
the  RECORD  KEY.  which  have  the  same 
reference  name  (data-ncme-2) . will 
be  10  positions  in  length  and  con- 
tain o decreasing  numerical  value 
by  increments  of  1 (330  thru  1'. 


001.01  SELECT  fil e-name- 1 

ORGANIZATION  IS  INDEXED 
ACCESS  NODE  IS  DYNAMIC 
RECORD  KE IS  da t ci-name- 1 
OF  record-name- 1 

See  VI  - 2.  1.2.2 


1.  This  test  creates  a file  containing 
300  records.  Following  creation  of  the 
file,  a check  is  made  to  see  that  the 
URITE  was  executed  300  times  and  that 
the'e  were  no  INVALID  KEY  paths  taken. 


DATA  DIVISION:  The  RECORD 
i'EY  t dot  a— name- 1 1 has  I he 
same  name  as  that  specified 
for  t ile- name-2. 

See  VI  - 2 . 1.2.3 
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831.02  SELECT  file-nome-2 
ORGANIZATION  IS  INDEXED 
ACCESS  MODE  IS  DYNAMIC 
RECORD  KEY  IS  data-name-1 

OF  recordrnome-2 

See  VI  - 2. 1.2.2 

DATA  DIVISION:  The  RECORD 
KEY  is  l he  same  name  as 
thal  specified  for 
f » 1 e-name- 1 . 

See  VI  - 2. 1.2.3 

UPITE  record-name-2  INVALID 
KEY 

001.03  SELECT  file-name-3 
ORGANIZATION  IS  INDEXED 
ACCESS  MODF  IS  DYNAMIC 
RECORD  KEY  IS  da la-name-2 

OF  dala-riame-3 
IN  data-name-4 

See  VI  - 2. 1.2.2 

DATA  DIVISION:  The  data 
description  for  file-name-3 
contains  multiple  data- 
name-2s  and  c.ata-name-3s. 
however,  is  uniquely 
identified  by  the  next 
Ic.'e’  of  qualification 
i.e..  data-narne-4. 

URITE  record-narne-3  INVALID 
KEY 


1.  This  test  creates  a file  contain- 
ing 380  records.  Fol lowing  creation 
of  the  file  a check  is  made  to  see 
that  the  URITE  was  executed  303  times 
and  that  there  were  no  INVALID  KEY 
paths  taken. 


3.  This  test  creates  a file  containing 
380  records.  Following  creation  of 
the  file  a check  is  made  to  see  that 
the  URITE  statement  was  executed  300 
times  and  that  there  were  no  INVALID 
KEY  paths  taken. 


OBJECTIVE:  Use  the  OPEN  statement  to 

to  establish  *he  RECORD  KEY 

as  the  key  of  reference  for  subsequent 

F'EAPs . the  OPEN  statement 

should  position  the  current  record 

♦ o the  first,  record  in  the  file  as  defi 

ed  by  the  RECORD  KEY  for  that  file. 

Any  qualification  necessary  to  esiabl  i: 
the  appropriate  RECORD  KEY  for  future 
record  r»tr  io*  *al  is  e* pec  led  to  be 
handled  by  the  implementor. 


082.01  OPEN  INPUT  file-name- 1 


opened  as  INPUT. 


READ  file-name- 1 HEXT 
RECORD  AT  END 


(PEN  1-0  f i l e-name-2 
READ  f 1 1 e-name-2  NEXT 
RECORD  AT  END 


OPEN  INPUT  file-name-3 
READ  file-name-3  NEXT 
RECORD  AT  END 


OBJECTIVE:  Use  of  qual- 
ification to  uniquely 
reference  a RECORD 
KEY  via  use  gf  a READ 
statement . 


003.01 


003.02 


083.03 


READ  file-name-2  RECORD 
INVALID  ('EY 


Ten  records  of  file-name- 1 are  read 
sequentially  and  their  contents 
verified  for  accurracy.  The  first 
10  records  of  file-name-1  are 
expected  to  be  retrieved. 


File-name-2  are  opened  as  1-0. 

Ten  records  of  file-name-2  are 
read  sequentially  and  their 
contents  verified  for  accuracy. 

The  first  10  records  of  file-name-2 
are  expected  to  be  retrieved. 


3. 


File-name-3  is  opened  as  INPUT  and 
10  records  are  READ  sequentially. 

The  first  10  records  of  file-name-3 
as  defined  by  RECORD  KEY  contents 
associated  with  data-name-2  OF  data- 
name-3  IN  data-name-4.  are  expected 
to  be  retrieved.  The  contents  of 
each  record  are  verified  for 
accuracy  and  a check  made  to  see  that 
there  was  not  a premature  AT  END 
path  taKen  while  reading  the  file. 


OBJECTIVE:  Retrieve  records  from  a 

file  via  the  READ  in  uhich  non- 
unique RECORD  KEY  names  have  been 
used.  Qualification  Is  used  where 
necessary  to  uniquely  identify  the 
RECORD  KEY. 


READ  f il e-name-3  RECORD  KEY 
IS  data-name-2  OF  data- 
name-3  IN  data-name-4 
INVALID  KEY 

(NOTE:  Qualification  is 
required  to  uni quel  a 
identify  a data-itern  with- 
in u record  of  that  file, 
See  VI  - 4. 4. 3 (3') 


1. 


Open  file-name-3  as  1-0  and  load  the 
RECORD  KEY  (data-name-2  OF  data-name- 
3 IN  data-name-4)  with  a predetermined 
record  key  value.  The  READ  is  execut- 
ed and  the  contents  of  the  record 
are  verified  . A check  is  made  to  see 
that  an  INVALID  KEY’  path  was  i ot 
taken. 


READ  f ile-n.-me-l  REO  ?D  KEY 
IS  data-name-1  OF  record- 
name-  1 INVALID  KEY 
(NOTE:  Qualification  is 
us=d  to  identify  a record 
Key  associated  uilh  a 
part icular  file) 

See  VI  - 4.4.3<3) 


Load  the  RECORD  KEY'  data- item  for  the 
file  with  a preaetermined  key  value 
The  record  is  retrieved  randomly,  tho 
record  '‘erified  and  a check  is  made  to 
see  that  the  INVALID  KEY  path  was  not 
t aken . 


73- 


Load  the  PeCGPD  i EY  data- item  for  the 
file  with  a pr  edo t ermi  ned  key  • 'a  1 1 '© . 


i 


res 
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(NOTE:  The  RECORD  KEY 
data- i tarn  used  for  this 
READ  is  expected  to  be 
the  one  associated  with 
file-name-2.) 

804  OBJECTIVE:  Use  of  qualif- 

ication to  uniquely  refer- 
ence a RECORD  KEY  via 
use  of  a START  Statement. 


804.01  START  file-name-3  KEY  IS 

EQUAL  TO  data-name-2 
IN  dala-name-3 
OF  dala-name-4 
INVALID  KEY 

(NOTE:  Qualification  is 
required  to  uniquely 
identity  a data- item 
within  a record  associat- 
ed with  file-name-3.) 

See  VI  - 4.6.3  (3) 

004.02  START  file-name-2  KEY  IS 

EQUAL  TO  data-name-1 
OF  record-name -2 
INVALID  KEY 

(NOTE:  qualification  used 
to  identify  a record  Key 
associated  with  a parti- 
cular filet 

See  VI  - 4. 6. 3 (3) 

004.03  START  file-name- 1 

INVALID  t EY 
UIOTE:  The  RECORD  I'ETY 
data- item  (datn-name  It 
used  tor  the  START  is 
e< pec  ted  to  be  one 
assoc iated  with 
f i 1 e-name- 1 1 


The  record  is  retrieved  randomly*  ti  \ 
record  verified  and  a check  made  to 
to  see  that  the  INVALID  KEY  path  was 
not  taken. 


OBJECTIVE:  Post  ion  the  current  record 
pointer  for  the  file  in  which 
non-unique  RECORD  KEY  names  are  used. 
Where  necessary*  qualification  is  used 
in  the  START  statement  to  uniquely 
identify  the  RECORD  KEY  dala-item. 

1.  Oper  file-name-3  as  1-0  and  load 
the  RECORD  KEY  data-item  with  a 
predetermined  value.  Following  ex- 
exution  of  the  START*  the  file 
is  read  sequentially,  the  record 
verified  and  a check  made  to  see  that 
the  INVALID  KEY  path  was  not  taken. 


2.  Open  file-name-2  as  1-0  and  load 
the  RECORD  KEY  dala-item  with  a 
predetermined  value.  Following 
execution  of  the  START,  the  file 
is  read  sequentially,  the  record 
verified  and  a check  is  made  to  see 
that  the  INVALID  KEY  path  was  not 
taken . 


3.  Open  fil e-name- 1 as  1-0  and  load 
the  RECORD  KEY  data-item  with  a 
pr  ecle  t er  m i nod  vu  1 ue . r o 1 1 ow  i ng 
execution  of  the  START,  the  tile 
is  read  sequentially,  the  record 
verifier!  and  a check  is  made  to  see 
that  the  INVALID  KEY  path  was  n .> t 
tat en. 


See  VI  - 4.6.3  f 3 ' 
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GENERAL:  The  function  of  this  run  unit  is  to  tost  the  permissible 

syntactical  constructs  of  COBOL  elements  associated  'with 
level  2 of,  INDEXED  1-0.  The  elements  tested  in  this  routine 
..ares 


, i 1 5V*S*X 


..(1)  READ  Statement  (format  2); 

'(2)  START  Statement  i 

'(3)  ~ ALTERNATE  RECORD  KEYS  series: 

(4)  ALTERNATE  RECORD  KEY  requiring  qualification. 


Each  element  tested  will  be  exercised  semantically  by  th,is 
rout ine. 


X-Card  parameters  which  must  be  supplied  for  this  program  are: 


X-24 

X-25 

X-55 

X-74 

X-75 

X-76 

X-82 

X-83 


Indexed  file-1  for  ASSIGN 
Indexed  file-2  for  ASSIGN 
System  printer 
VALUE  OF  implementor-name 
Object  of  VALUE  OF  clause 
Object  of  VALUE  OF  clause 
Source-computer 
Ob  ject -computer 


TO 

TO 


clause 

clause 


for 

for 


file 

file 


X-24  above 
X-25  above 
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TEST  SYNTACTICAL 

I NX-TEST  CONSTRUCT 

001  OBJECTIVE:  Create  and 

verify  a file  which 
contains  multiple 
ALTERNATE  RECORD  KEYs. 
One  ALTERNATE  KEY  re- 
quires qualification  to 
distinguish  it  between 
files  within  the  pro- 
gram. 


SEMANTIC  ACTION 


001.01  SElECT  file-name- 1 

ORGANIZATION  IS  INDEXED 
ACCESS  MODE  IS  DYNAMIC 
RECORD  KEY  IS  data-name-1 
ALTERNATE  RECORD  KEY  IS 
data-name-2 

ALTERNATE  RECORD  KEY  IS 
data-name-3  UITH 
DUPLICATES 

ALTERNATE  RECORD  KEY  IS 
data-name-4  OF 
record-name- 1 
See  VI  - 2. 1.2.2 
DATA  DIVISION:  The 
ALTERNATE  RECORD  KEY 
(data-name-4)  is  the  same 
da to- name  as  that  spec- 
ified for  f i 1 o-narne-2 . 
however,  is  uniquely 
qualified  by  record- 
name-  1 . 


1.  This  test  creates  a file  containing 
300  records.  The  RECORD  KEY  (tiata- 
narne-1)  will  be  6 positions  in  length 
and  established  sequentially.  The 
ALTERNATE  KEY  (data-name-2)  will  be 
12  positions  in  length  and  established 
in  inverse  sequence.  The  ALTERNATE  KEY 
f data-name-3)  will  be  18  positions  in 
length  and  established  in  sequence  by  a 
logical  incremental  value  of  5 with 
every  50th  and  51st  record  a duplicate 
Key.  The  ALTERNATE  KEY  (data-name-4) 
will  be  24  positions  in  length  and 
establish  in  sequence  by  a logical  in- 
cremental value  of  10.  The  Keys  will 
be  created  in  a work  area  and  stored 
into  the  record  as  a group  item. 


See  '’I  - 2.  1.2.3 

IJR I TE  record-name- 1 
INVALID  KEY 


001.02 


OPEN  file-name-1  as  1-0,  Establish 
:la la-name-2  as  the  key  of  reference  via 
the  START  statement.  Read  ID  records 
of  f i 1 e-  name- 1 and  **erify  that  the  file 
ran  be  ••‘ovsed  i-in  f ho  ALTERNATE  I EY 

t'liid-M  inn'  - 2 . 


001.03 


3.  Pead  60  records  uf  f i 1 e-name- 1 using 
the  ALTERNATE  KEY  (data-- name-  S'*  arid 


gp 


.^«r«£  5'*-'  •£*,’ 


SPE^jP*^  :*  » '.V'.?*.-^^^. 

'l-'vsv'V-  -:fc 


^|||§ 

iwn'vwp 

#t#! 

jS^ 

P%: 


W H-il 

« tj, , ; 


^ ■■  j,  ■> > ^iUt^a£^.uaa5ire5rtf g8£as». 


302.01 


verify  that  logical  records  100  and 
101  contain  duplicate  Keys  and  can  be 
accessed.  The  START  Statement  is 
used  to  establ ish  the  Key  of  refer- 
ence. The  Key  record  pointer  is 
established  as  the  41st  logical 
record  of  the  file. 


OBJECTIVE:  Create  and 
verify  a f ile  which 
contains  multiple 
ALTERNATE  RECORD  KEYS. 
One  ALTERNATE  KEY  re- 
quires qualification  to 
distinguish  it  between 
data-items  within  the 
record  description  of 
the  file. 


SELECT  file-name-2  ] 

ORGANIZATION  IS  INDEXED 
ACCESS  MODE  IS  DYNAMIC 
RECORD  KEY  IS  dala-name-5 
ALTERNATE  RECORD  KEY  IS 

data-name-6  OF  data-name-8 
ALTERNATE  RECORD  KEY  IS 
data-name-7  UITH 
DUPLICATES 

ALTERNATE  RECORD  KEY  IS 
da la-name-4  OF 

record-name-2 
See  VI  - 2. 1.2.2 
DATA  DIVISION:  The  data 
description  for  file- 
name-2  contains  multiple 
dala-narne-6s  which  can  be 
uniquely  identified 
through  qual i f icat ion 
(data-nam©-8) . The 
ALTERNATE  RECORD  KEY 
(data-name-4)  is  the  same 
data-name  as  that  speci- 
fied for  f i 1 o-name- 1 . 
however » is  un i quel y 
qualified  by  record- 
nanr<--2. 

See  VI  - 2.  1.2.3 


This  test  creates  a filo  contain- 
ing 300  records.  The  RECORD  KEY 
Cdala-name-5)  will  be  6 positions  in 
length  and  established  sequentially. 
The  ALTERNATE  KEY  (data-name-4)  will 
be  12  positions  in  length  and  estab- 
lished in  inverse  sequence.  The 
ALTERNATE  KEY  ( da ta-name-T)  will  be  18 
positions  in  length  and  established 
in  sequence  by  a logical  incremental 
value  of  5 with  every  50th  and  51st 
record  a duplicate  Key.  The  ALTERNATE 
KEY  (data-name-6)  will  be  24  posi- 
tions in  length  and  establish  in 
sequence  by  a logical  Incremental 
value  of  10.  The  Keys  will  be  created 
in  a work  area  and  stored  into  the 
record  as  a group  item. 


WRITE  t ecord-name-2 
INVALID  KEY 
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002.02 


OBJECTIVE:  Use  of  qual- 
ification to  uniquely 
reference  an  ALTERNATE 
KEY  via  use  of  a READ 
statement . 


2.  OPEN  file-name-2  as  1-0.  Establish 
data-narne-6  OF  data-name-8  as  the  Key 
of  reference  via  the  START  statement. 
Read  10  records  of  file-name-1 
sequentially  and  verify  that  the  file 
can  be  accessed  via  the  ALTEPNATE  KEY 
(data-name-6) . 

3.  Read  68  records  of  file-name-2 
sequentially  using  the  ALTERNATE  KEY 
(data-name-7)  and  verify  that  logical 
records  100  and  101  which  contain 
duplicated  Keys,  can  be  accessed. 

The  START  statement  is  used  to 
establ ish  the  Key  of  reference  and 
position  the  record  pointer  to  the 
41st  logical  record  of  the  file. 


003.81  READ  file-name-2  KEY  IS 
data-name-6  OF  data- 
name-8 

COBJECTIVE:  Qualification 
used  within  a record  of 
the  file  being  tested) 

See  VI  - 4. 4. 3(3) 


Open  file-name-2  as  1-0  and  load  the 
ALTERNATE  KEY  (data-name-6)  with  a 
predetermined  record  Key  value.  The 
record  is  retrieved  randomly  and 
ver i f i ed . 


003.02  READ  file-name-!  KEY  IS 

data-name-4  IN 
record-name- 1 

(OBJECTIVE:  Qualification 
used  to  identify  a record 
Key  associated  with  a 
particular  filet 
See  VI  - 4. 4. 3(3) 

004  OBJECTIVE:  Use  of  qualif- 

ied' ion  to  uniquely  refer- 
ence an  ALTERNATE  t EY  via 
i.i-r.  of  a '-iT'F'T  Statement. 


2.  Load  the  ALTEPNATE  KEY  (duta-name-4) 
f or  f i 1 e-name- 1 

with  a predetermined  rererd  Key 
value.  The  record  is  retrieved 
randomly  and  verified. 


004. ni  -jJn-'T  i i 1 ‘.awe - J 1 „Y  J'r> 
E>  'Li!.  ; : j s ci- > * - 6 

IN  do 1 ■j-ti'.iiue- y 
■hot*  quul  i!  icji  ion  U.ed 
within  a roc or d of  the 
fie  be i n q t es t ed 1 


Pn»n  f i 1 -name -3  n~  1-0  cmd  os  t ...n- 
1 i;h  I >-y  r. t r r.f -•  .t, - (i  ■ • j ■ • Hi-  OTAPT 
0 1 a t O'.iol'd  , 1 he  r--.--  r,t  d is  Ih'.’ii  l tuci 

-■‘ijver.t  ini  ly  ■ ■ i ci  ilu  "i'Enl1  t i 1 o - 
t'larne-  3 t'L"!T  PECOPr"  Stchemi-ni  arid 
■ 'er  i f i eci . 


004.02  START  file-name-2  KEY  IS 
EQUAL  TO  da la-name-4 
OF  record-name  IN 
f ile-name-2 

(Note  qualification  used 
to  identify  a record  Key 
assoc. ated  with  a parti- 
cular file.) 

See  VI  - 4. 6. 3(3) 


2.  Open  file-name-2  as  1-0  and  estab- 
lish key  or  reference  via  the  START 
Statement.  The  record  is  then  read 
sequentially  via  the  "READ  file- 
name-2 NEXT  RECORD*  Statement  and 
ver if ied. 


The  function  of  this  run  unit  is  to  test  the  language  semantics 
relating  to  duplicate  Keg  values  and  appropriate  positioning 
of  the  current  record  pointer.  For  any  Key  value  which  is  the 
same  as  one  already  existing  in  the  file  for  a prime  record  Key 
or  on  alternate  record  Key  in  which  the  DUPLICATES  phrase  has 
not  been  specified  should  cause  the  appropriate  INVALID  KEY 
path  to  be  taKen  and  the  FILE  STATUS  data-item  to  be  updated. 
This-run  unit  tests  the  correct  functioning  of  the  START  statement 
for  its  respective  INVALID  KEY  paths,  establishing 
the  Key  of  reference  for  sequential  reads  and  using  a data-item 
other  than  the  RECORD  KEY  data-name  to  position  the 
current  record  pointer.  The  elements  tested  in  this 
run  unit  are: 


m 


tfi 


(1)  FILE  STATUS 

(2)  URITE  INVALID  KEY 

(3)  START  statement 


(duplicate  Key  values) 


The  appropriate  implementor-names  uhich  are  to  be  suppl iedd 
for  this  program  are  identified  by  X~cards.  The  <-cards 
used  by  this  program  urs: 


X-  24 
X-55 
X-74 
X-75 
X-S2 
X-83 


Indexed  file-1  ter  ASSIGN  TO  clause 

System  printer 

VALUE  OF  implementor  name 

Object  of  VALUE  OF  for  file-1 

Source-Computer 

Ob  ject-Comput  er 


»f! 


1 ^ TEST 
INX-TEST 

001 


CONSTRUCT 

SELECT  file-name- 1 
ORGAN  I ZET I ON  IS  INDEX 
RECORD  KEY  IS 
data-name-l 
ALTERNATE  KEY  IS 
dala-name-4 
ALTERNATE  KEY  IS 
dala-name-10 
UITH  DUPLICATES 
FILE  STATUS  IS 
data-name-16 
ACCESS  MODE  IS 
SEQUENTIAL 


SEMANTIC  ACTIONS 

OBJECTIVE:  Create  an  Indexed  file  using  the 
SEQUENTIAL  ACCESS  MODE.  The  records  will 
contain  2 alternate  Keys,  one  uith  duplicates 
Keys  and  the  other  without.  The  file 
contains  200  records.  The  WRITE  statement 
will  be  executed  more  than  200  times 
expecting  the  INVALID  KEY  path  to  be  taken 
and  the  FILE  STATUS  data-item  to  be  updated 
for  any  Key  in  which  a duplicated  Key  value 
is  not  permitted.  Any  Key  value  provided 
which  is  not  unique  for  a prime  record  Key 
or  for  an  alternate  record  Key  in  which  the 
DUPLICATES  phrase  has  not  boon  specified 
should  not  permit  the  record  to  be  written 
to  the  file. 


USE  AFTER  STANDARD 
ERROR  PROCEDURE 
ON  fil e-name- 1 

WRITE  record-name 
INVALID  KEY 


The  file  will  have  the  following 
character ist ics: 


File  size 
Record  size 
RECORD  KEY 
data-name- 1 
dala-name-2 
da la-name-3 


■ 201  records 

* 240  characters 

■ 15  characters 

XC10)  values  B thru  U 
XC5)  values  P thru 

400  by  increments 
of  2) 


(sample  of  Key  contents) 

BBBBBBBBBB000 

BBBBBBBBBC002 

BBBBBBBBCC004 


CCCCCCCCCC023 

CCCCCCCCCD021 


UUUUUUUUUU40O 


ALTERNATE  KEY 

data-name-4 

dalci-name-5 


= 20  characters 
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data-name-9  XC7)  voloe  'AttjccVl" 


s® 


Pl: 
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m r 


(sample  of  Key  contents) 


■ " ,* 

\f  .■ 


^EE£E£EEEE008ALTK£YI 
EEEEEEEEEF802AL  TKE Y 1 
EEEEEEEEFF8fMALTKEYl 


,i;:|;f:l|i;;1' ;.] 


1 u v‘i>? 


FFFFFFFFFF820AL7KEY1 

FFFFFFFFFG022ALTKEY1 


YYYYYYYYYY400ALTXEY1 


ALTERNATE  KEY 
data-name-18 
dcita-name-1 1 
djta-name-12 
data-name-13 
data-name-14 


28  characters 


X(5)  values  U thru  D 
X(5)  values  U thru  D 
X(3)  values  400  thru  8 
by  decrements  of  2 


da la-name- 15 


X(7)  value  "ALTKEY2" 


(sample  of  Key  contents) 


UIJUUbJIJJUU400ALTKEY2 

UUUULMJIJIJV398ALTKEY2 

UULAJIJULJIJW396ALTKEY2 

UU1XJUU1JWV394ALTKEY2 


UWVVVVVW382ALTKEY2 

VWWVWW380ALTKEY2 

VWVWWW380ALTKEY2 

VWWVWVU378ALTKEY2 


DDDDDDDDDD008ALTKEY2 


NOTE: 


After  the  first  record,  data-name-10 
uili  be  duplicated  every  10th 
record  i.e..  10th  arid  11  th  record 
will  have  the  same  value. 
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001.01  URITE  record-name 
INVALID  KEY 


The  Key  contents  are  given 
in  the  sequence  in  uhich  they  are 
created.  The  record  retrieval 
sequence  is  expected  to  be  in 
ascending  order  of  record  Key  values 
therefore,  records  accessed  by 
the  alternate  Key  fdata-name-10) 
would  cause  records  to  be  retrieved 
in  descending  order  of  RECORD  KEY 
value  (data-name-1) . 

1.  Following  the  201st  execution  of  the  URITE 
statement  a test  is  made  to  verify  that 
there  were  no  unexpected  INVALID  KEY  paths 
iaKen.  All  records  thru  the  201st  record 
are  released  in  ascending  order  of  prime 
record  Key  values.  The  alternate  Key 
values  are  not  released  in  ascending  order. 

See  VI  - 4.8.4  (12)  The  URITE  statement 

(level  1) 


001.02 


2.  The  202nd  time  the  URITE  is  executed 
the  RECORD  KEY  (data-name-1)  is  loaded 
with  a Key  value  the  same  as  one  already 
existing  in  the  file.  The  INVALID  KEY 
path  is  expected  to  be  taken.  The  FILE 
STATUS  (data-name-16)  is  saved  for 
future  reference. 


See  VI  - 4.8.4  (10;.  (15)  The  URITE  STATEMENT 

(level  1) 


001.03 


3.  The  203rd  time  the  URITE  is  executed 
the  ALTERNATE  KEY  (data-name-4)  is  loaded 
with  a Key  value  the  same  as  one  already 
existing  in  the  file.  The  value  for 
the  RECORD  KEY  (datci-name-l)  is  loaded 
with  a unique  value.  Since  the  DUPLICATES 
phrase  was  not  specified,  the  INVALID  KEY 
oath  of  the  URITE  statement  is  expected 
to  be  taken.  The  FILE  STATUS  (data-name- 
16)  is  saved  for  future  reference. 


00* .04 


4.  The  204th  time  the  URITE  is  executed 
PEC0PD  t'EY  (data-name-1)  is  loaded 
with  u : m i q.  r ey  "-ilue  uhich  has  a 

lower  sequential  1 oq  "olue  than 
the  previous  record.  LJhen  the 
SEQUENTIAL  At CESS  MODE  has  been  ^ yj? 

specified,  any  such  condition  should  / J *' 
cause  an  INVALID  KEY  condition  to  (/*** 

occur.  The  FILE  STATUS  data- item 


001, 05 


(data-nas»-16)is  sovedforfuture 
referenco. 

See  VI  - 4.8.4  U5>o  The  WRITE  stalment 

. (level  1) 

5.  The  WRITE  in  INX-TEST-001 .02  above 

should  cause  the  EU-E  STATUS  data- item 
to  be  updated  as  well.  The 
data- item  (data-name-16)  should 
reflect  that  the  record 
contained  a RECORD  KEY  value  already 
present  in  the  file.  Thus 
data-name-16  should  contain  the  value 
•22*. 


xswwm 


1 *.l  . 

f l-  '7%*? 

*} 

, wrajS  -S1  i '» 
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00 1.06 


001.07 


See  VI  - 4.8.4  (15) a The  WRITE  statement 

(level  1) 

1.3.4  1-0  Status 

6.  The  WRITE  in  INX-TEST-001 .03  above 
should  have  caused  the  FILE  STATUS 
data-item  (data-name-16)  to  he 
updated.  The  contents  of  data-name-16 
should  reflect  that  the  record 
contained  a ALTERNATE  KEY  (data-name-4) 
value  already  present  in  the  file.  Thus, 
contents  of  data-name-16  should  contain 
the  value  "22". 

See  VI  - 4.8.4  (15)c  The  WRITE  statement 
1.3.4  1-0  Status. 

7.  The  WRITE  in  INX-TEST-001 .04  above 
should  have  caused  the  FILE  STATUS 
data-item  (data-name-16)  to  updated. 

The  contents  of  data-name-16  should 
reflect  that  a record  being  written 

to  the  file  contained  a lower  sequential 
value  in  the  prime  record  Key  than 
previous  record.  Thus  the  contents  of 
data-name-16  should  contain  the 
value  "21". 

See  VI  - 4.8.4  (15)a  The  WRITE  statement 

(level  1) 

1.3.4  1-0  Status 


OBJECTIVE:  Read  the  file  updated  in  INX- 
TEST-001  above  and  verify  the  file  for 
accuracy.  There  is  expected  to  be  no 
more  and  no  less  than  201  records  m the 
file.  When  an  INVALID  KEY  condition 
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082.01  READ 


f il e-name- 1 
AT  END 


002.02 


003 


OBJECTIVES  The  SThRT 
statement  is  used 
specifying  a data- item 
in  the  KEY  phrase  which 
is  subordinate  to  the 
RECORD  KEY  (data-name- 
1). 


occurs,  at  was  expected  for  UlRITEs 
282  thru  284  in  INX-TEST-0B1  above, 
execution  of  the  inpul-output  statement 
should  have  been  unsuccessful  and  the  file 
should  not  have  been  affected.  This 
test  checKs  to  see  that  none  of  these 
records  were  written  to  the  file. 

See  4.8.4  (16)  The  URITE  Statement 

1.  The  file  is  opened  as  INPUT  and  read 
until  the  end-of-file  is  reached. 

A count  is  made  as  to  the  number  of 
times  the  READ  is  ‘■vacuted.  The  READ 
should  have  executed  202  times.  The 
202nd  time  should  have  caused 
the  AT  END  path  to  be  laKen. 

2.  During  the  read  of  the  file  in  INX- TEST- 
002.  01  each  record  is  verified  and  a count 
Kept  of  those  records  which  did  not  match 
the  expected  record  contents. 

This  count  is  expected  to  be  zero. 

OBJECTIVE!  Test  the  conditions  which 
should  cause  the  INVALID  KEY  path 
of  the  START  statement  to  be  taken. 

This  test  uses  the  data-items  associated 
with  the  RECORD  KEY  clause  for  Key  corn- 
parsions.  If  the  KEY  phrase  of  the  START 
statement  is  not  specified,  the  relational 
operator  "IS  EQUAL  TO  " is  implied  other- 
wise the  relational  operator  in  the  KEY  phrase 
is  used.  For  this  lest,  the  relational 
operator  associated  with  "EQUAL  TO" 
comparsion  will  be  tested. 

If  the  comparison  is  not  satisfied 
by  any  record  in  the  file,  an  INVALID  KEY 
condition  exists,  the  START  statement  is 
unsuccessful  and  position  of  the  current 
record  pointer  is  undefined.  For  each 
execution  of  the  STRPT  statement  the  con- 
tents of  the  FILE  STATUS  i data -name- IS"1 
is  seized  for  future  reference. 


003 .01  S TART  f i 1 - -name- 1 
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1.  I' -i1  a -name- 1 is  loaded  with  u Key  urilue 
"I  Cf Cf.fJ- 1* C CO, 1 ] " i.ihi.Ji  is  a "a  Inn 
no*  ini'i  Tit  A.  '-i.  tin..  | in  H"  ? file. 

Thu  ! ."J  "nine.  yi''--.n  h'!“  Cl  _'•*  yuO.'i  t i . ll 
local  i on  Deii.tt'en  two  currently 
e i-.tmcj  F’Ei  OP'D  I EY  ■ '"iluos.  Trie  i'.iul  iecL 
eel  'A  ionul  "per n r or  " IS  EOUAL  TO  " 
is  e> peeled  to  be  used  tor  the  compar- 
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883.82  START  file-nome-1 
IS  EQUAL  TO 
dala-norns-l 
INVALID  KEY 


is on  thus  cause  an  INVALID  KEY  condition 
to  occur.  1 ‘ ’ * 

See  VI  - 4.6.4  <2>,  (3)  and  (6)  The 
START  statement . 

2.  Da la-name- I Is  looded  with  a Key  value 
*BBBBBBBBBB081 * uhich  is  a value 
not  currently  existing  in  the  file. 

The  Keg  value  given  has  a sequential 
location  between  two  currently 
existing  RECORD  KEY  values.  The 
explicit  relation  operator  *IS  EQUAL 
TO*  is  expected  to  be  used  for  the 
comparsion  thus  cause  an  INVALID  KEY 
condition  to  occur. 

Seo  VI  - 4.6.4  (3)  and  (5)  The  START 
statement. 


]’1 4 '*f,  ' 


B&3.03  START  file-name- 1 
KEY  IS  EQUAL  TO 
data-name-1 
INVALID  KEY 


3.  Data-name-l  is  loaded  with  a Key  value 
"BBBBBBBBBA000"  uhich  is  a value 
uith  a magitude  of  one  less  then  the 
first  RECORD  KEY  value  in  the  file. 

The  explicit  relational  operator 
* IS  EQUAL  TO  " is  expected  to  be  used 
for  the  comparison  thus  cause  an  INVALID 
KEY  condition  to  occur. 


See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 


003.04  START  file-name-1 
KEY  IS  EQUAL  TO 
data-name- 1 
INVALID  KEY 


4.  Data-name-l  is  loaded  uith  a Key  value 
"UUUUUUUUUU401"  uhich  is  a value 
uith  a magitude  of  one  more  than  the 
last  RECORD  KEY  value  in  the  file. 

The  explicit  relational  operator 
"IS  EQUAL  TO  " is  expected  to  be  used 
for  the  comparsion  thus  cause  an  INVALID 
KEY  condition  to  occur. 


903.05  START  fil e-name- 1 
KEY  IS  EQUAL  TO 
data-name-2 
INVALID  ('EY 

See  VI  - 4.6.3  (5) 


See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 

5.  Data-name-2  is  loaded  uith  a value 
"CCCrCCD022 " . When  the  operands 
being  compared  are  of  unequal  size 
comparsion  proceeds  as  though  the 
longer  one  were  '■  rune  cited  on  the 
right  such  that  its  length  is  equal 
to  that  of  the  shorter.  If  trunca* ion 
occurs  on  the  left  a Key  match  will  be 
found  thus  an  INVALID  KEY  condition 
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OBJECTIVE:  The  START 
statement  is  used 
specifying  a data-item 
in  the  KEY  phrase  uhich 
is  subordinate  to  the 
RECORD  KEY  (dala-name- 
1).  See  test  004. 0S 
below. 

See  VI  - 4.6.3  <5> 


004.01  START  filo-name-1 
KEY  IS  > 
data-name-1 
INVALID  KEY 


will  not  occur.  For  this  test  an 
INVALID  KEY  condition  is  expected. 

4 

See  VI  - 4.6.4  <3>  The  START  statement. 

OBJECTIVE:  Test  the  conditions  uhich 

should  cause  the  INVALID  KEY  path 
of  the  START  statement  to  be  taKon. 

This  test  uses  the  data- items  associated 
with  the  RECORD  KEY  for  comparisons.  For  this 
test  the  relational  operator  associated 
with  the  'GREATER  THAN*  comparison 
>ill  be  tested. 

If  the  comparison  is  not  satisfied 
by  any  record  in  the  file,  an  INVALID  KEY 
condition  exists,  the  START  statement  is 
unsuccessful  and  position  of  the  current 
record  pointer  is  undefined.  For  each 
execution  of  the  START  statement  the  con- 
tents cf  the  FILE  STATUS  (data-name-16) 

Is  saved  for  future  reference. 

1.  Data-name-1  is  loaded  with  a Key  value 
"WVWWWV000"  which  is  a value 
greater  than  any  currently  in  the  file. 

The  symbol  for  "GREATER  THAN”  is  used  to 
designate  the  comparison.  The 
relational  operator  associated  with 
the  "GREATER  THAN  * comparison 
is  expected  to  be  used  thus,  the  record 
should  not  be  found  which  should  cause 
an  INVALID  KEY  condition  to  occur. 


See  VI  - 4.6.4  (2),  (3)  and  (6)  The 
START  statement. 


004.02  START  file-name-1 

KEY  IS  GREATER  THAN 
data-name-1 
INVALID  KEY 


2.  Data-name-1  is  loaded  with  a Key  value 
"UUUUUUUUUU500"  uhich  is  a value 
greater  than  any  currently  in  the  file. 
The  relational  operator  "GREATER  THAN" 
is  expected  to  be  used  for  the 
comparsion  thus  cause  an  INVALID  KEY 
condition  to  occur. 


See  VI  - 4.6.4  (31  and  (5)  The  START 
statement . 


004.03  START  file-name-1 

KEY  iS  GREATER  THAN 
data-name-l 
INVALID  KEY 


Data-name-1  is  loaded  with  a Key  value 
"UUUUUUUUUU40O"  which  is  a i-alue 
for  the  last  recoTd  in  the  file.  The 
comparison  "GREATER  THAN"  should  not 
find  a RECORD  KEY  value  greater  than 
this  in  the  file.  An  INVALID  KEY 
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condition  is  expected  to  occur. 

See  VI  - 4.6.4  (3)  and  (5)  Th»  START 
statement. 
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004.04  START  f il e-name- 1 

KEY  IS  GRAEATER  THAN 
data-name-1 
INVALID  KEY 


4.  Data-name-l  is  loaded  uith  a Key  value 
“UUUUUUUUUU48 1 * which  is  a value 
uith  a magitude  of  one  more  than  the 
last  RECORD  KEY  value  in  the  file. 

The  explicit  relational  operator 
"GREATER  THAN"  is  expected  to  be  used 
for  the  comparsion  thus  cause  an  INVALID 
KEY  condition  to  occur. 


’ \>\  /VS 


Ev‘-:- 1 


004.05  START  file-name- 1 

KEY  IS  GREATER  THAN 
data-name-2 
INVALID  KEY 

See  VI  - 4.6.3  (5) 


See  VI  - 4.6.4  (3)  and'  (5)  The  START 
statement . 

5.  Data-name-2  is  loaded  uith  a value 
’'UUUUUUUUUU".  Uhen  the  operands 
being  compared  are  of  unequal  size 
comparsion  proceeds  as  though  the 
longer  one  were  truncated  on  the 
right  such  that  its  length  is  equal 
to  that  of  the  shorter.  Since  the 
first  10  positions  of  the  RECORD  KEY 
are  equal  to  that  of  data-name-2  the 
last  record  Key  value  in  the  file 
should  be  equal.  A value  of  one 
magnitude  larger  than  this  value  should 
not  be  present  in  the  file  thus  an 
INVALID  KEY  condition  is  expected. 

See  VI  - 4.6.4  (3)  The  START  statement. 
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OBJECTIVE:  The  START 
statement  is  used 
specifying  a data- item 
in  the  KEY  phrase  which 
is  subordinate  to  the 
RECORD  KEY  (data-nas  - 
1).  See  test  005.04 
below. 

See  VI  - 4.6.3  (5) 


OBJECTIVE:  Test  the  conditions  which 

should  cause  the  INVALID  KEY  path 
of  the  START  statement  to  be  taken. 

This  test  uses  the  data-items  associated 
uith  the  RECORD  KEY  for  KEY  comparisons 
For  this  test  the  relational  operator  assoc- 
iated with  the  "NOT  LESS  THAN"  comparison 
will  be  tested. 

If  the  comparison  is  not  satisfied 
by  any  record  in  the  file,  an  INVALID  KEY 
condition  exists,  the  START  statement  is 
unsuccessful  and  position  of  the  current 
record  pointer  is  undefined.  For  each 
execution  of  the  START  fintoment  the  con- 
certs of  the  Ti-E  STATUS  f data-name-16) 
is  saved  for  future  reference. 


005.01 


START  file-name-1 
KEY  IS  NOT  < 


1.  Da t a- name- 1 is  loaded  with  a Key  value 
" WVWVWWOQ0 " which  is  a value 


data-namie-1  greater  than  any  currently  in  the  file. 

INVALID  KEY  The  symbol  for  'LESS  THAN  ■ is  used  to 

designate  the  comparison.  The 
relational  operator  associated  uith 
the  'NOT  LESS  THAN'  cortparison 
is  expected  to  be  used  for  the  compai — 
ison  thus  cause  an  INVALID  KEY  condition 
to  occur. 

See  VI  - 4.6.4  (2),  (3)  and  (6)  The 
START  statement. 


005.02  START  file-name-1  2.  Data-name-1  is  loaded  with  a Key  value 

KEY  IS  NOT  LESS  THAN  * UUUUUUUUUU500 ' uhich  is  a value 

data-name-1  greater  than  any  currently  in  the  file. 

INVALID  KEY  The  relational  operator  'NOT  LESS  THEN* 

is  expected  to  be  used  for  the 
comparsion  thus  cause  an  INVALID  KEY 
condition  to  occur. 

See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 

005.03  START  file-name-1  3.  Data-name-1  is  loaded  uith  a Key  value 

KEY  IS  NOT  LESS  THAN  “0000000000401"  uhich  is  a value 
data-name-1  of  one  larger  than  any  existing  in  the 

INVALID  KEY  file.  The  comparison  "NOT  LESS  THAN" 

should  not  find  a RECORD  KEY  value  uhich 
matches.  An  INVALID  KEY  condition  is 
expected  to  occur. 

See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 


005.04  START  fil e-name- 1 

KEY  IS  NOT  LESS  THAN 
data-name-2 
INVALID  KEY 

See  VI  - 4.6.3  (5) 


4.  Data-name-2  is  loaded  uith  a value 
“OOUOUOOOOV".  When  the  operands 
being  compared  are  of  unequal  size 
comparison  proceeds  as  though  the 
longer  one  uere  truncated  on  the 
right  such  that  its  length  is  equal 
to  that  of  the  shorter.  The 
first  10  positions  of  the  RECORD  KEY 
are  equal  to  that  of  data-name-2  and  the 
last  record  key  value  in  the  file 
has  a value  of  "UUUUUUUUUU"  in  the 
first  10  positions  of  the  record  Key 
The  specified  value  is  one  larger  than  any 
in  the  file.  A RECORD  KEY  value  equal  to 
or  greater  than  data-name-2  should  not  be 
found  thus  an  INVALID  KEY  is  expected.  C 


See  VI 


4.6.4  (3)  The  START  statement. 


006 


OBJECTIVE : The  START 
statement  is  used 
specifying  a data- item 
in  the  KEY  phrase  uhich 
is  subordinate  to  the 
ALTERNATE  KEY 
(data-name-4) . See 
lest  806.05  belou. 

See  VI  - 4.6.3  (5) 


OBJECTIVE:  Test  the  conditions  uhich 

should  cause  the  INVALID  KEY  path 
of  the  START  statement  to  be  taken. 

This  test  uses  the  data-ilems  associated  uith 
the  ALTERNATE  KEY  for  KEY  comparisons.  The 
ALTERNATE  KEY  clause  does  not 
contain  the  DUPLICATES  phrase.  If  the 
KEY  phrase  of  the  START  statement  is  not 
specified,  the  relational  operator 
"IS  EQUAL  TO"  is  impl ied  otherwise  the 
relational  operator  in  the  KEY  phrase 
is  used.  For  this  test,  the  relational 
operator  associated  uith  "EQUAL  TO" 
comparsion  uill  be  tested. 

If  the  comparison  is  not  satisfied 
Lg  any  record  in  the  file,  an  INVALID  KEY 
condition  exists,  the  START  statement  is 
unsuccessful  and  position  of  the  current 
record  pointer  is  undefined.  For  each 
execution  of  the  START  statement  the  con- 
tents of  the  FILE  STATUS  (data-name-16) 
is  saved  for  future  reference. 


006.01  START  file-name-1  1.  Data-name-4  is  loaded  with  a key  value 

INVALID  KEY  "FFFFFFFFFF02 1ALTKEY1 " which  is  a value 

not  currently  existing  in  the  file. 

The  Key  value  given  has  a sequential 
location  between  two  currently  existing 
ALTERNATE  KEY  values.  Data-narne-1 
is  loaded  uith  the  Key  value 
“CCCCCCCCCC020"  which  is  a RECORD  KEY 
for  the  logical  record  immediately  preceed 
ing  that  specified  for  the  ALTERNATE  KEY 
f data-name-4) . If  the  KEY  phrase  is  not 
specified  the  START  uses  the  PECORD  KEY 
and  “IS  EQUAL  TO"  for  the  comparisons  thus 
an  INVALID  KEY  condition  is  not  expected. 

See  VI  - 4.6.4  (2),  (3)  and  (6)  The 
START  statement. 


006.02  START  file-name-1 
KEY  IS  EQUAL  TO 
data-name-4 
INVALID  KEY 


2.  Dala-name-4  is  loaded  with  a Key  value 
"EEEEEEEEEE00 1 ALTKEY1 " which  is  a value 
not  currently  existing  in  the  file. 

The  Key  value  given  has  a sequential 
1 oc  a t i on  bet  ween  t wo  curr en  1 1 y 
existing  ALTERNATE  I FY  values.  i 
■ -pi  i c it  ruled  1 ■_ r i operator  "IS  LOHhL 
TO"  is  expected  to  he  used  for  the 
comparsion  thus  cause  an  INVALID  1 EY 
condition  to  occur. 

See 


VI  - 4.6.4  (3)  and  (5) 


The  START 
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statement . 


006.03  START  file-name- 1 
KEY  IS  EQUAL  TO 
data-name-4 
INVALID  KEY 


006.04  START  file-name- 1 
KEY  IS  EQUAL  TO 
data-name-4 
INVALID  KEY 


006.. '5  START  fil e-name- 1 

KEY  IS  EQUAL  TO 
data-name-5 
INVALID  KEY 

See  VI  - 4.6.3  (51 


3.  Data-name-4  is  loaded  with  a Key  value 
"EEEEEEEEED800ALTKEY1 * which  is  a value 
with  a magitude  of  one  less  then  the 
first  ALTERNATE  KEY  value  in  the  file. 
The  explicit  relational  operator 

* IS  EQUAL  TO  * is  expected  to  be  used 
for  the  comparison  thus  cause  an  INVALID 
KEY  condition  to  occur. 

See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 

4.  Data-name-4  is  loaded  with  a Key  value 
"YYYYYYYYYY40 1ALTKEY1 * which  is  a value 
with  a magitude  of  one  more  than  the 
last  ALTERNATE  KEY  value  in  the  file. 

The  explicit  relational  operator 

"IS  EQUAL  TO  “ is  expected  to  be  used 
for  the  comparsion  thus  cause  an  INVALID 
KEY  condition  to  occur. 

See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 

5.  Data-name-5  is  loaded  with  a value 
"022ALTKEY1" . The  operands 
being  compared  are  of  unequal  size 
comparsion  proceeds  as  though  the 
longer  one  were  truncated  on  the 
right  such  that  its  length  is  equal 

to  that  of  the  shorter.  If  truncation 
occurs  on  the  left  a Key  match  will  be 
found  thus  an  INVALID  KEY  condition 
will  not  occur.  For  this  test  an 
INVALID  KEY  condition  is  expected. 
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See  VI  - 4.6.4  (3)  The  START  statement. 


007 


OBJECTIVE:  The  START 
statement  is  used 
specifying  a data-item 
in  the  KEY  phrase  which 
is  subordinate  to  the 
ALTERNATE  KEY  (data- 
name-4)  . See  test 
007.05  below. 

See  VI  - 4.5.3  < 51 


OBJECTIVE:  Test  the  conditions  which 

should  cause  the  INVALID  KEY  path 
of  the  START  statement  to  be  taken. 

This  test  uses  the  data-items  associated  with 
the  ALTERNATE  KEY  for  KEY  comparisons.  The 
ALTERNATE  KEY  clause  does  not 
contain  the  DUPLICATES  option.  For  this 
test  the  relational  operator  associated 
with  the  "GREATER  THAN"  comparsion 
will  be  tested. 

If  the  comparison  is  not  satisfied 
by  any  record  in  the  file,  an  INVALID  KEY 
condition  exists,  the  START  statement  is 


ntif.nu",  ***** ^ t uty-i  wtwiw* 


unsuccessful  and  position  of  the  current 
record  pointer  is  undefined.  For  each 
execution  of  the  START  statement  the  con- 
tents of  the  FILE  STATUS  fdata-name-16) 
is  saved  for  future  reference. 


007.01  START  file-name-1 
KEY  IS  > 
data-name-4 
INVALID  KEY 


Dala-name-4  is  loaded  with  a Key  value 
"ZZZZZZZZZZ401ALTKEY1 " which  is  a value 
greater  than  any  currently  in  the  file. 
The  symbol  for  "GREATER  THAN"  is  used  to 
designate  the  comparison.  The 
relational  operator  associated  with 
the  "GREATER  THAN  " comparison 
is  expected  to  be  used.  The  record  should 
not  be  found  thus  cause  an  INVALID  KEY 
to  occur. 


See  VI  - 4.6.4  (2),  (3)  and  (6)  The 
START  statement. 


007.02  START  file-name- 1 

KEY  IS  GREATER  THAN 
data-name-4 
INVALID  KEY 


2.  Data-name-4  is  loaded  with  a Key  value 
"ZZZZZZZZZZ400ALTKEY1 " which  is  a value 
greater  than  any  currently  in  the  file. 
The  relational  operator  "GREATER  THAN" 
is  expected  to  be  used  for  the 
comparsion  thus  cause  an  INVALID  KEY 
condition  to  occur. 


See  VI  - 4.6.4  G)  and  <5>  The  START 
statement . 


007.03  START  file-name-1 

KEY  IS  GREATER  THAN 
data-name-4 
INVALID  KEY 


3.  Data-name-4  is  loaded  with  a Key  value 
" YYYYYYYYYY40 O AL TK E Y " which  is  the  value 
for  the  last  record  in  the  file.  The 
comparison  "GREATER  THAN”  should  not 
find  a ALTERNATE  KEY  value  which  matches. 
An  INVALID  KEY  condition  is  expected  to 
occur. 


See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 


007.04 


START  fil e-name- 1 

KEY  IS  GREATER  THAN 
dala-na.i  e-4 
INVALID  ( . Y 


4.  Dala-name-4  is  loaded  with  a Key  value 
"YYYYYYYYYY40 1 ALTKEY1 " which  is  a -ulue 
with  a magnitude  of  one  more  than  the 
last  ALTERNATE  KEY  value  in  the  file. 

The  e vp  1 i c ! t re  1 a t i ona  1 op«>*  a t or 
"GREATER  THAN"  i*  expected  to  be  used 
for  the  comparsion  thus  cause  an  INVhLID 
KEY  condition  to  occur  . 

See  VI  - 4.6.4  13 1 and  >5)  The  START 
statement . 


START  file-name-1 

KEY  IS  GREATER  THAN 
data-name-5 
INVALID  KEY 

See  VI  - 4.6.3  (5) 


Dala-name-5  is  loaded  with  a value 
"YYYYYYYYYY".  When  Ihe  operands 
being  compared  are  of  unequal  size 
compnrsion  proceeds  as  Ihough  Ihe 
longer  one  were  truncated  on  the 
right  such  that  its  length  is  equal 
to  that  of  the  shorter.  Since  the 
first  10  positions  of  the  ALTERNATE  KEY 
are  equal  to  that  of  data-name-5  the 
last  record  Key  value  in  the  file 
should  be  equal.  A value  of  one 
magnitude  larger  than  the  value 
specified  by  data-name-2  should  not 
be  present  in  the  file  thus  an 
INVALID  KEY  condition  is  expected. 


See  VI  - 4.6.4  (31  The  START  statement. 


008  OBJECTIVE:  The  START 
statement  is  used 
specifying  a data-item 
in  the  KEY  phrase  which 
is  subordinate  to  the 
ALTERNATE  KEY  (data- 
name-4) . 


OBJECTIVE:  Test  ihe  conditions  which 

should  cause  the  INVALID  KEY  path 
of  the  START  statement  to  be  taken. 

This  lest  uses  the  data-item  referenced 
in  the  ALTERNATE  KEY  clause  associated 
with  the  file  for  ;omparsions.  The 
ALTERNATE  KEY  clause  does  not 
contain  the  DUPLICATES  option.  For  this 
test  the  relational  operator  associated 
with  the  "NOT  LESS  THAN"  comparison 
will  be  tested. 

If  the  comparison  is  not  satisfied 
by  any  record  in  the  file,  an  INVALID  KEY 
condition  exists,  the  START  statement  is 
unsuccessful  and  position  of  the  current 
record  pointer  is  undefined.  For  each 
execution  of  the  START  statement  the  con- 
tents of  the  FILE  STATUS  (data-name-16) 
is  saved  for  future  reference. 


008.01  START  file-name-1 
KEY  IS  NOT  < 
data-name-4 
INVALID  KEY 


1.  Data-name-4  is  loaded  with  a Key  value 
"ZZZZZZZZZZ000ALTKEY1 " which  is  a value 
greater  than  any  currently  in  the  file. 
The  symbol  for  "LESS  THAN  " is  used  to 
designate  the  compcr ison.  The 
relational  operator  associated  with 
the  “NOT  LESS  THAN"  comparison 
is  expected  to  be  used  for  the  compar- 
ison thus  cause  an  INVALID  KEY  condition 
to  occur . 

See  VI  - 4.6.4  (?).  (31  and  (6)  The  „ 
START  statement. 


(6)  The 
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START  f 1 1 e-name- 1 

KEY  IS  NOT  LESS  THAN 
data-name-4 
INVALID  KEY 


008.03 


START  fil e-name- 1 

KEY  IS  NOT  LESS  THAN 
data-name-4 
INVALID  KEY 


008.04 


009 


START  f i 1 e-name- 1 

KEY  IS  NOT  LESS  THAN 
data-name-2 
INVALID  KEY 


See  VI  - 4.6.3  (5) 


OBJECTIVE:  The  START 
statement  is  used 
specifying  a data-item 
in  the  KEY  phrase  which 
is  subordinate  to  +he 
ALTERNATE  KEY 
(da let-name- 10)  . 


2.  Data-name-4  is  loaded  with  a Key  value 
"YYYYYYYYYY500ALTKEY1 * which  is  a value 
greater  than  any  currently  in  the  file. 
The  relational  operator  "NOT  LESS  THAN* 
is  expected  to  be  used  for  the 
comparsion  thus  cause  an  INVALID  KEY 
condition  to  occur. 


See  VI  - 4.6.4  (3)  and  (5) 
statement . 


The  START 


Data-name-4  is  loaded  with  a Key  value 
"YYYYYYYYYY401ALTKEY1 * which  is  a value 
of  one  larger  than  any  existing  in  the 
file.  The  comparison  "NOT  LESS  THAN" 
should  not  find  a ALTERNATE  KEY  value 
which  matches.  An  INVALID  KEY  condition 
is  expected  to  occur. 


See 


VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 


4. 


Data-name-5  is  loaded  with  a value 
" YYYYYYYYYZ " . LJhen  the  operands 
being  compared  are  of  unequal  size 
comparsion  proceeds  as  though  the 
longer  one  were  truncated  on  the 
right  such  that  its  length  is  equal 
to  that  of  the  shorter.  The 
first  10  positions  of  the  ALTERNATE  KEY 
are  equal  to  that  of  dala-name-2,  and  the 
last  record  Key  value  in  the  file 
has  a value  of  "YYYYYYYYYY"  in  the 
first  10  positions  of  the  record  Key. 

The  specified  value  is  one  larger 
than  any  in  the  file. 

A ALTERNATE  KEY  value  equal  to  or  greater 
than  data-name-2  should  not  be  found 
thus  an  INVALID  KEY  is  expected. 


See  VI  - 4.6.4  f3)  The  START  statement. 


OBJECTIVE:  Test  the  conditions  which 

should  cause  the  INVALID  KEY  path 
of  the  START  statement  to  be  toKen. 

This  test  uses  the  data- items  associated  with 
the  ALTERNATE  KEY  for  HEY"  comparisons.  The 
ALTERNATE  KEY  clause  contains  the 
DUAL  I C ATES  option.  If  t ho 
KEY  phrase  of  the  START  statement  is  not 
specified,  the  relational  operator 
"IS  EQUAL  TO"  is  implied  otherwise  the 
relational  operator  in  the  KEY  phrase 
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009.01  START  fil e-name- 1 
INVALID  KEY 


009.02  START  file-name-1 
KEY  IS  EQUAL  TO 
dala-name-4 
INVALID  KEY 


006.03  START  f i 1 e-nome- 1 
KEY  IS  EQUAL  TO 
da  t.  a- name- 10 
INVALID  1 Ei' 


is  used.  For  this  lest*  Ihe  relational 
operator  associated  with  "EQUAL  TO" 
comparsion  ui’l  be  tested. 

If  t*"e  comparison  is  not  satisfied 
by  any  record  in  the  file,  an  INVALID  KEY 
condition  exists,  the  START  statement  is 
unsuccessful  and  position  of  the  current 
record  pointer  is  undefined.  For  each 
execution  of  ti.j  START  statement  the  con- 
tents of  the  FILE  STATUS  (data-name-16) 
is  saved  for  future  reference. 

1.  Data-narne-10  is  loaded  with  a Key  value 
"ULUUUUUVVV335ALTKEY2"  which  is  a value 
not  currently  existing  in  the  file. 

The  Key  value  given  has  a sequential 
location  between  two  currently  existing 
ALTERNATE  KEY  values.  The  implied 
relational  operator  "IS  EQUAL  TO  " 
i s expected  to  be  used  for  the  compar- 
ison thus  cause  an  INVALID  KEY  condition 
to  occur. 

See  VI  - 4.6.4  (2),  (3j  and  (6)  The 
START  statement. 

2.  Data-name- 10  is  loaded  with  a Keq  value 
"UUUIJLJLO.JIJIJ33 1ALTKEY2 " which  is  a value 
not  currently  existing  in  the  file. 

The  Key  value  given  has  a sequential 
location  between  two  currently 
existing  ALTERNATE  KEY  values  and  one 
greater  than  a Key  value  which  is 
a duplicate  of  another  in  the  file.  The 
explicit  relation  operator  "IS  EQUAL 
TO"  is  expected  to  be  used  for  the 
comparsion  thus  cause  an  INVALID  KEY 
condition  to  occur. 


See  VI  - 4.6.4  < 3)  and  (5)  The  START 
statement , 


3.  Pat a -name- 10  is  loaded  with  a Key  value 
"PI)PODPDDPi:O0OhLTKEY2"  which  is  a value 
with  a magnitude  of  one  less  than  the 
f jr?l  ALTERNATE  KEY  valUf  in  the  file. 


The  e > | >1  i r i i r - >1  a t i oi  i a 1 oj  <nr  a t nr 
"IS  Eilll:iL  T9  " is  e-necte'l  to  ho 
tur  the  ci.'f,ip:ir  i_,un  Hue.  cun.-.e  'ti 
LEY  cond  1 1 i on  t o oc c ur . 
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INVALID 
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VI  - -1.6.4  1 31  and  u 5 ■ The  START 
s la lemon l . 


4.  Da  la-name- 10  is  loaded  with  a Key  value 

"XXXXXXXXXX401ALTKEY2"  uhich  is  a value  f 

uith  a magnitude  of  one  more  than  the 
last  ALTERNATE  KEY  value  in  the  file. 

The  explici*  relational  operator 
"IS  EQUAL  TO  * is  expected  to  be  used 
for  the  compare  ion  thus  cause  an  INVALID 
KEY  condition  to  occur. 

i See  VI  - 4.6.4  (3)  and  (5)  The  START 

statement . 

5.  Data-name-11  is  loaded  uith  a value 
"378ALTKEY2".  Uhen  the  operands 
being  compared  are  of  unequal  size 
comparison  proceeds  as  though  the 
longer  one  uere  truncated  on  the 
right  such  that  its  length  is  equal 
to  that  of  the  shorter.  If  truncation 
occurs  on  the  left  a Key  match  will  be 
found  thus  an  INVALID  KEY  condition 
uill  not  occur.  For  this  test  an 
INVALID  KEY  condition  is  expected. 

See  VI  - 4.5.4  (3)  The  START  statement. 

010  OBJECTIVE:  The  START  OBJECTIVE:  Test  the  conditions  uhich 

statement  is  used  should  cause  the  INVALID  KEY  path 

specifying  a data-item  of  the  START  statement  to  be  taken, 

in  the  KEY  phrase  uhich  This  test  uses  the  data-items  asocciated  uith 
is  subordinate  to  the  the  ALTERNATE  KEY  for  KEY  comparisons.  The 
ALTERNATE  KEY  (data-  ALTERNATE  KEY  clause  contains  the 
name-10).  the  DUPLICATES  option.  For  this 

test  the  relational  operator  associated 
uith  the  "GREATER  TUAN"  comparsian 
uill  he  tested. 

If  the  comparison  is  not  satisfied 
by  any  record  in  the  file,  an  INVALID  KEY 
condition  exists,  the  START  statement  is 
unsuccessful  and  position  of  the  current 
record  pointer  is  undefined.  For  each 
execution  of  the  START  statement  the  con- 
tents of  the  FILE  STATUS  (data-name-16) 
is  saved  for  future  reference. 


009.05  START  file-name- 1 
KEY  IS  EQUAL  TO 
data-name-11 
INVALID  KEY 

See  VI  - 4.6.3  (5) 


009.04  START  file-name-1 
KEY  IS  EQUAL  TO 
data-name-10 
INVALID  KEY 


010.01  START  file-name- 1 
KEY  IS  * 
dat  a-name  - 18 
INVALID  KEY 


Data-name-10  is  loaded  uith  a key  value 
"ZZZZZZZZZZ401ALTKEY2"  uhich  is  a value 
greater  Hun  any  currently  in  the  file. 
The  symbol  for  "GREATER  THAN"  is  used  to 
designate  the  comparison.  The 
relational  operator  associated  uith 
the  "GREATER  THAN  " comparison 


I 


010.02  START  file-name-1 

KEY  IS  GREATER  THAN 
data-name- 10 
INVALID  KEY 


010.03  START  file-name-1 

KEY  IS  GREATER  THAN 
ciala-riame-10 
INVALID  KEY 


010.04  START  file-name-1 

I EY  IS  GREATER  THAN 
dala-name-10 
INVALID  KEY 


is  expected  to  he  used  for  the  compar- 
ison thus  cause  an  INVALID  KEY  condition 
to  occur. 

See  VI  - 4.6.4  (2)-  (3)  and  (6)  The 
START  statement. 

2.  Data-name-18  is  loaded  with  a Key  value 
"ZZZZZZZZZZ9S3ALTKEY2"  which  is  a value 
greater  than  any  currently  in  the  file. 
The  relational  operator  “GREATER  THAN" 
is  expected  to  be  used  for  the 
comparsion  thus  cause  an  INVALID  KEY 
condition  to  occur. 

See  VI  - 4.6.4  (3)  and  (5)  The  START, 
statement . 

3.  Data-name-10  is  loaded  with  a Key  value 
"LHJUIJUUUUUU400ALTKEY2 " which  is  the  value 
for  the  last  record  in  the  file.  The 
comparison  "GREATER  THAN"  should  not 
find  a ALTERNATE  KEY  value  which  matches. 
An  INVALID  KEY  condition  is  expected  to 
occur. 

See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 

4.  Dala-narno-10  is  loaded  with  a key  value 
"UUUUUUUUUU40 1 ALTKEY2 " which  is  a value 
with  a magnitude  of  one  more  than  the 
last  ALTERNATE  KEY  value  in  the  file. 

The  explicit  relational  operator 
"GREATER  THAN"  is  expected  to  be  used 
for  the  comparsion  thus  cause  an  INVALID 
I'.EY  condition  to  occur. 
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See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 


010.05  START  file-name-1 

KEY  IS  GREATER  THAN 
data-name- 1 1 
INVALID  I EY 

See  VI  - 4.6.3  <5) 


5. 


Data-name- 1 1 is  loaded  with  d value 
"UIJWUUIJIJUIJLJ" . When  the  operands 
being  compared  are  of  unequal  size 
comparsion  proceeds  as  though  the 
longer  one  were  truncated  on  the 
right  such  that  its  length  is  equal 
* lha!  of  the  shn-ti.-.  Since  the 
first  10  position.-,  of  the  ALT  PNATE  KEY 
are  equal  to  tN.it  ot  du(  a-name- 1 1 the 
last  record  ley  "alue  in  the  file 
should  be  equal.  A value  of  one 
magnitude  larger  than  the  value 
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specified  by  data-name-1 1 should  not 
be  present  in  the  file  thus  an 
INVALID  KEY  condition  is  expected. 


See  VI  - 4.6.4  (3)  The  STArT  statement. 
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011 


OBJECTIVE:  The  START 
statement  is  used 
specifying  a data-item 
in  the  KEY  phrase  which 
is  subordinate  to  the 
ALTERNATE  KEY 
(data-name-10) . 


OBJECTIVE:  Test  the  conditions  which 

should  cause  the  INVALID  KEY  path 
of  the  START  statement  to  be  taken. 

This  test  uses  the  data-items  associated  with 

the  ALTERNATE  KEY  for  KEY  comparisons.  The 

ALTERNATE  KEY  clause  contains  the 

DUPLICATES  option.  For  this 

lest  the  relational  operator  associated 

with  the  "NOT  LESS  THAN"  comparison 

will  be  tested. 

If  the  comparison  is  not  satisfied 
by  any  record  in  the  file,  an  INVALID  KEY 
condition  exists,  the  START  statement  is 
unsuccessful  and  position  of  the  current 
record  pointer  is  undefined.  For  each 
execution  of  the  -TART  statement  the  con- 
tents of  the  FILE  STATUS  (data-name-16) 
is  saved  for  future  reference. 


011.01  START  file-name-1 
KEY  IS  MOT  < 
data-name-10 
INVALID  KEY 


Data-narne-10  is  loaded  with  a key  value 
'ZZZZZZZZZZ999ALTKEY2 " which  is  a value 
greater  than  any  currently  in  the  file. 
The  symbol  for  "LESS  THAN  " is  used  to 
designate  the  comparison.  The 
relational  operator  associated  with 
the  "NOT  LESS  THAN"  comparison 
is  expected  to  be  used  for  the  compar- 
ison thus  cause  an  INVALID  KEY  condition 
to  occur. 


i 


I 
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011.02 


011.03 


See  VI  - 4.6.4  (2).  (3)  and  (6)  The 
START  statement. 


START  file-name- 1 

KEY  IS  NOT  LESS  THAN 
data-,iame-l8 
INVALID  KEY 


2.  Data-name-10  is  loaded  with  a key  value 
"LIUUUIMJUIJU500ALTKEY2"  whicn  is  a value 
greater  than  any  currently  in  the  file, 
the  relational  operator  "NOT  LESS  THAN" 
is  expected  to  be  used  for  the 
comparsion  thus  cause  an  INVALID  KEY 
condition  to  occur. 


See  VI 


4.6.4  CJi  and  (5-  The  START 
statement . 


START  file-name-1 

KEY  IS  NOT  LESS  THAN 
data-narne-10 


3.  Data-narne-10  is  loaded  with  a keu  value 
"l,MJUI.JWUl.HaU401ALTKEYl"  which  is  a value 
of  one  larger  than  any  existing  in  the 
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INVALID  KEY 
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011.04 


START  fil e-name- 1 

KEY  IS  NOT  LESS  THAN 
data-name-1 1 
INVALID  KEY 

See  VI  - 4.6.3  (5) 


012 


file.  The  comparison  “NOT  LESS  "WAN* 
should  not  find  a ALTERNATE  KEY  value 
which  matches.  An  INVALID  KEY  condition 
is  expected  to  occur. 

See  VI  - 4.6.4  (3)  and  (5)  The  START 
statement . 

4.  Data-name-1 1 is  loaded  with  a value 
"UIJIJWJ^^  Uhen  the  operands 
being  compared  are  of  unequal  size 
comparsion  proceeds  as  though  the 
longer  one  were  truncated  on  the 
right  such  that  its  length  is  equal 
to  that  of  the  shorter.  The 
first  10  positions  of  the  ALTERNATE  KEY 
are  equal  to  that  of  data-name-1 1 and  the 
last  record  Key  value  in  the  file 
has  a value  of  " UUULJURJUIIJUU " in  the 
first  10  pcsitions  of  the  record  Key. 

The  specified  value  is  one  larger 
than  any  in  the  file. 

A ALTERNATE  KEY  value  equal  to  or  greater 
than  data-name-10  should  not  be  found 
thus  an  INVALID  KEY  is  expected. 

See  VI  - 4.6.4  (3)  The  START  statement. 
OBJECTIVE:  This  test  checKs  the  captured 

status  contents  of  the  FILE  STATUS 
(data-name- 16)  from  the  START  statements 
in  test  INX-TEST-003  above. 

The  following  tests  are  dependent  on  the 
appropriate  execution  of  the  START  statements 
i.e.  successful  or  unsuccessful  as  the  case 
may  be.  Thus  if  the  START  statement  did  not 
execute  as  expected  the  contents  of 
data-name- 16  is  not  expected  to  contain  the 
correct  file  status  code. 


012.01 


012.02 


1.  An  INVALID  KEY  condition  is  expected 
as*a  result  of  execution  of  the  START 
statement  in  test  IN), - TEST-003.01 . 

The  key  value  specified  for  the  START 
should  not  find  a matching  record  in 
the  file  thus  the  FILE  STATUS 

f data-name- 16)  should  reflect 
such  a coni i l inn  and  contain  the 
i 'due  "23". 

2.  An  INVALID  KEY  condition  is  e- pec ted 
as  a result  of  execution  of  the  START 
statement  in  test  I Nix- TEST-003. 02. 

The  Key  value  specified  for  the  START 
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013.01 


should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  Cdata-name-16) 
should  reflect  such  a condition  and 
contain  the  value  *23*. 


3.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-003. 03. 

The  Key  'value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  *23". 


4.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-003. 04. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23”. 


5.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-093. G5. 

The  Keu  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (dala-name- 16) 
should  reflect  such  a condition  and 
contain  the  <.'0106  "23". 

! 

! 

OBJECTIVE:  This  lest  checKs  the  captured  ! 

status  contents  of  the  FILE  STATUS  j 

(data-name-16)  from  the  START  statements  ■ 

in  lest  INX-TEST-GU4  above. 

The  following  tests  are  dependent  on  the 
appropriate  execution  of  the  START  statements 
i.e.  successful  or  unsuccessful  as  the  case 
may  be.  Thus  if  the  START  statement  dia  not 
execute  as  expected  the  contents  of 
data-name-16  is  not  expected  to  contain  the 
correct  file  status  code. 


1.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
c- tni  emenl  in  IMX-TFST-004.01 . 

T i ’ ■ t <nj  "alue  specified  tor  the  START 
-S.ojK!  not  ft i id  a matching  record  ir, 
the  file  thus  the  FILE  STATUS 
( da l a-nume -lb'  shou Id  ref) ec  t 
such  a c o n d i t i n n a n d c o n t a i n t h e 
"alue  "23". 
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2.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX-TFST-A04.02. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

3.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-004. 03. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  “23". 

4.  An  INVALID  KEY  condition  is  expected 
as  u result  of  execution  of  the  START 
statement  in  test  INX- TEST-004. 04. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
f-’le  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  ''23“ . 

5.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-004. 05. 

The  Key  value  specif iea  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

OBJECTIVE:  This  lest  ehecKs  the  captured 

status  contents  of  the  FILE  STATUS 
(data-name-16)  from  the  START  statements 
in  test  INX-TEST-Q05  above. 

The  follouing  tests  are  dependent  on  the 
appropriate  execution  of  the  START  statements 
i.e.  successful  or  unsuccessful  as  the  case 
may  be.  Thus  if  the  START  statement  did  not 
execute  as  expected  the  contents  of 
data-name-16  is  not  expected  to  contain  the 
correct  file  status  code. 

1.  An  INVALID  I EV  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-005 . O 1 . 

The  Key  value  specified  for  the  START 
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should  nol  find  a matching  record  in 
the  file  thus  the  FILE  STATUS 
(data-name-16)  should  reflect 
such  a condition  and  contain  the 
value  "23". 

2.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-005. 02. 

The  Key  value  -specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

3.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX-7EST-005.03. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 


« 014.04  4.  An  INVALID  KEY  condition  is  expected 

; as  a result  of  execution  of  the  START 

f * statement  in  test  I NX- TEST-005. 04. 

f-  The  Key  value  specified  for  the  START 

• J should  not  find  a matching  record  in  the 

] . file  thus  the  FILE  STATUS  (data-name-16) 

j should  reflect  such  a condition  and 

contain  the  value  "23". 

I 015  OBJECTIVE:  This  lest  checKs  the  captured 

i status  contents  of  the  FILE  STATUS 

|(data-narne-16)  from  the  START  statements 

in  test  INX-TEST-006  above. 

The  following  tests  are  dependent  on  the 

, appropriate  execution  of  the  START  statements' 

i i.e.  successful  or  unsuccessful  as  the  case 

j may  be.  Thus  if  the  START  statement  did  not 

| execute  as  expected  the  contents  of 

F data-name-16  is  not  expected  to  contain  the 

[ correct  file  status  code. 
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1.  An  INVALID  KEY  condition  is  not  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX-7EST-0OS.01 . 

The  !■>-'!(  ''oiue  specif  ied  for  the  START 
jhO'ild  find  a nu  f r hing  record  in 
the  tile  thus  the  FILE  STATUS 
(data- name- 16*  should  reflect 
such  a condition  and  contain  the 
value  "03". 


2.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-006. 02. 

The  key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (da la-name- 16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

3.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-006. 03. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

4.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-006. 04. 

The  key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

5.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-006. 05. 

The  key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

OBJECTIVE:  This  test  checks  the  captured 

status  contents  of  the  FILE  STATUS 
(data-name-16)  from  the  START  statements 
in  test  INX-TEST-007  above. 

The  following  tests  are  dependent  on  the 
appropriate  execution  of  the  START  statements 
i.e.  successful  or  unsuccessful  as  the  case 
may  be.  Thus  if  the  START  statement  did  not 
execute  as  expected  the  contents  of 
data-name-16  is  not  expected  to  contain  the 
correct  file  status  code. 

. An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  *ne  START 
statement  in  test  INX- TEST-007. 01 . 

The  Key  value  specified  for  the  START 
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should  nol  find  a matching  record  in 
the  file  thus  the  FILE  STATUS 
(data-name-16)  should  reflect 
such  a condition  and  contain  the 
valte  *23*. 

2.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-007. 02. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

3.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  IHX-TEST-007.03. 

The  key  value  specified  for  the  START 
should  nol  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  ”23". 

4.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  IHX-TEST-007.04. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-narne- 16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

5.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-007. 05, 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 


017  OBJECTIVE:  This  test  checks  the  captured 

status  contents  of  the  FILE  STATUS 
(data-name-16)  from  the  START  statement? 
in  test  INX"TEST-nG3  above , 

The  fol  loving  tests  at  Neper, don 1 ~n  the 
appropriate  o\ecut i.m  or  the  STAF  > elements 
* i . o . r955 f u 1 or  ur» r t •.  •_  ^ ?.  1 1 1 1 i rr„  * . ■ ^ <: 

may  be.  Thus  if  the  START  statemen1  aid  not 
execute  a.  -pec ted  the  contents  of 

, data-narne- i is  rot  e,  pec  ted  to  contain  the 

correct  file  status  cede. 
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1.  fin  INVALID  KEY  condition  is  expected 
as  a result  of  execut ioncrr  the  START 
statement  in  test  I NX- TEST-808 .01. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in 
the  file  thus  the  FILE  STATUS 
(data-name-16)  should  reflect 
such  a condition  and  contain  the 
value  "23*. 
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2.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  IHX-TFST-808.02. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  *23*. 
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An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-008. 03. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  *23". 
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4.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-008. 04. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

OBJECTIVE:  This  test  checKs  the  captured 

status  contents  of  the  FILE  STATUS 
(data-name-16)  from  the  START  statements 
in  test  INX- TEST-009  above. 

The  following  tests  are  dependent  on  the 
appropriate  execution  of  the  START  statements 
i.e.  successful  or  unsuccessful  as  the  case 
may  be.  Thus  if  the  START  statement  did  not 
execute  as  expected  the  contents  of 
data-name-16  is  not  expected  to  contain  the 
correct  file  status  code. 
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1.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX- TEST-009.8 1 . 

The  Key  value  specified  for  the  START 
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should  not  find  a matching  record  in 
the  file  thus  the  FILE  STATUS 
(data-name-16)  should  reflect 
such  a condition  and  contain  the 
value  *23* . 

2.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-009. 02. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  *23*. 

3.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-009. 03. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a cona.tion  and 
contain  the  value  "23". 

4.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-009. 04. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  '-alue  "23". 

5.  An  INVALID  \ EY  condition  is  e ■•pec  ted 
as  a result  of  execution  of  the  STAPT 
statement  in  ten  I NX- TEST-009. 05. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (dala-name- 16) 
should  reflect  such  a condition  a J 

c on  tain  t he  ■ •a  1 ue  " «.-’3 11 . 

OBJECTIVE:  This  lest  cnec^s  the  captured 

status  contents  of  * he  FILE  STATUS 
fdat u-narie- 16 • from  the  START  statements 
in  test  I NX-  TEST-  0 1 0 cihc  -s . 

The  t t)  1 uijinn  tests  nr c*  dependent  r»n  the 
a::pr  - 1 it  e e * i m uf  the  SThPT  statements 
i.e.  ^essiui  .•  t < ■nsvc  ■-■  ~ 3 , "1  as  the  case 
may  be.  Thus  it  t tie  STAPT  -I  element  did  not 
execute  as  e- ported  'he  contents  of 
data- name- 16  is  not  peeled  to  contain  the 
c or  r ec  t file  status  code. 
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1.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX-TEST-010.0! . 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in 
the  file  thus  the  FILE  STATUS 
(data-name-16)  should  reflect 
such  a condition  and  contain  the 
value  "23*. 
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2.  An  INVALID  KEY  condition  is  expected 
as  a resul t of  execut ion  of  the  START 
statement  in  test  INX-TEST-010.02. 

The  Key  value  specified  for  the  START 
s -.ould  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 
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3.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  ir.  test  INX- TEST-0 10. 03. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-'6) 
should  reflect  such  a condition  and 
contain  the  value  "23". 
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4.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-0 10. 04. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILF  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 
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5.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  I NX- TEST-0 10. 05. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 


OBJECTIVE?  This  lest  choct s the  captured 
status  contents  of  the  FILE  STATUS  . 

Idala-name- 16 i trorn  the  STAPT  statements  A 
in  test  INX- TEST-0 11  above. 

The  follouing  tests  are  dependent  on  the 
appropt  iate  e«ecutio.  of  the  START  statements 
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i.e.  successful  or  unsuccessful  as  (he  case 
may  be.  Thus  If  the  START  statement  did  not 
execute  as  expected  the  contents  of 
data-name-16  is  not  expected  to  contain  the 
correct  file  status  code. 

1.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX-TEST-011.01. 

The  key  value  specified  for  the  START 
should  not  find  a matching  record  in 
the  file  thus  the  FILE  STATUS 
(data-name-16)  should  reflect 
such  a condition  and  contain  the 
value  “23*. 


020.02 


2.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX-TEST-01 1 .02. 

The  Key  value  specified  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  thb  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 
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3.  An  INVALID  KEY  conditio.!  is  expected 
as  a result  of  execution  of  the  START 
statement  in  test  INX-TEST-01 1 .03. 

The  Key  value  specified  for  the  STARi 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  reflect  such  a condition  and 
contain  the  value  "23". 

4.  An  INVALID  KEY  condition  is  expected 
as  a result  of  execution  of  the  START 
s t a t emen t in  test  l NX- TEST-0 1 1 . 04 . 

The  *ey  value  specif ied  for  the  START 
should  not  find  a matching  record  in  the 
file  thus  the  FILE  STATUS  (data-name-16) 
should  renei;t  such  a condition  and 
contain  the  “alue  "23". 
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